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01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 

01 

01 
01 
01 
01 
01 



0771 
1005 
1032 
1034 
1045 
1047 
1051 
1053 
1055 
1065 
1070 
1072 
1077 
1150 
1151 
1154 
1156 
1160 
1162 
1164 
1166 
ii77 
1201 
1274 
1276 
1301 
1305 
1310 
1311 
1312 
1314 
1316 
1320 
1322 
1324 
1343 
1371 
1401 
1403 
1405 
1407 
1411 
1413 



PA6E 


0017 


FLOAT 


01S432 


.PMR2 


011440 


.RET 


011494 


TTl 


007463 


TT2 


007592 


TT3 


000163 


TT4 


000164 


FFLA9 


011032 


EMAT 


011496 


EHATl 


011471 


EMAT2 


011535 


EHAT3 


011540 


EMAT4 


011555 


EMAT5 


011961 


EHAT6 


011600 


EMAT7 


011610 


EMAT0 


011622 


EHATB 


011626 


EHAT9 


011662 


LHAP 


011666 


LBA8E 


011667 


EHAli 


011701 


EMAll 


011711 


EHA12 


011725 


REOIM 


011732 


REDIl 


011746 


17 


011766 


HCKS 


011767 


SENER 


012000 


9EN2 


012004 


LOOP 


012013 


MODI 


012017 


H0D2 


012029 


COMPR 


012032 


LERR 


012035 


LCHK2 


012045 


LCHKl 


(912051 


LCHK4 


012061 


LCHK6 


012067 


LCHK9 


012100 


ADD 


012103 


ADUl 


012105 


SUB 


012116 


REPLC 


012123 


REPLl 


012130 


SMULT 


012137 


LCON 


^12145 


LCONl 


012150 


LC0N2 


012161 


SZER 


012170 


LIDN 


012176 


LlSNl 


012216 


• OLD 


012230 


.08T 


012240 


6ETAD 


012290 


GET 


012293 



PASE 0fU 



ADRE8 

TINY 

TRAN 

TRANl 

LNEXT 

MULT 

MULT4 

MULT3 

MULT2 

LINV 

LIMll 

LIN10 

LINVl 

LINV2 

LINV7 

LINV8 

LINV3 

LDUMl 

LINV6 

LINI2 

LlNiS 

LINi4 

UINV4 

LINV5 

LINi5 

LIN18 

LIN17 

LWHR 

LWHR2 

Tl 

T2 

T3 

T4 

T5 

T6 

T7 

T8 

T9 

T10 

Til 

T12 

T13 

T16 

T18 

Tig 

LPIV 

LPLU8 

LMIN 

LTIME 

INCB2 

FINIS 

*« NO 



012264 
(912266 
012266 
012302 
012304 
012331 
012361 
012366 
012374 
012441 
012902 
012922 
012939 
012991 
012971 
012602 
012626 
012704 
012716 
012733 
012740 
012792 
012760 
013006 
013033 
013040 
013062 
013067 
013101 
013113 
013114 
013119 
013116 
013117 
013120 
013121 
013122 
013123 
013124 
019129 
013126 
013127 
013130 
013132 
013133 
013134 
013139 
013137 
013140 
013141 
013142 
ERRORS* 



BASE PAGE LINKS AND CONSTANTS 
BASE PAGE SUBROUTINES 



PA8E 0019 #01 BASE PAGE LINKS AND CONSTANTS 



0001 

0003 

0004 

0005 

0006* 

0007* 

0008* 

0009 

0010* 

0011 

0012 

0019 

0014 

0016 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

002S 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 



00077 

00077 102077 

• ENTRY POINT 

00100 124201 



ASCBrAfBfLrT BASIC LANGUAGE — JANUARY 1, 1970 
ORG 77B 

SUP PRESS MULTIPLE OPERAND PRINTING 
HLT 77B CHANGED TO JSB 107BrI BY 'BOSS* 

FOR CONFIGURED BASIC 



JMP START, I 



00101 
00102 
00103 
00104 
00105 
00106 
00107 
00110 
00111 
00112 
00113 
00114 
00115 
00116 
00117 
00120 
00121 
00122 
00123 
00124 
00129 
00126 
00127 
00130 
00131 
00132 
00133 
00134 
00199 
00196 
00137 
00140 
00141 
00142 
00143 
00144 
00149 
00146 
00147 
00150 
00151 
00152 
00153 
00154 
00155 
00156 
00157 



000000 
000000 
000000 
000000 
002200 
000000 
000000 
019142 
000000 
000000 
000000 
001794 
000000 
000000 
000000 
000000 
019142 
019142 
000000 
000000 
000000 
100109 
100102 
100102 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



PREAD 
WRITE 
PUNCH 
REED 

LWBM 

FWAM 

LMAM 

PBLFF 

PBPTR 

FMABP 

FCCRE 

SYfTF 

SYKTA 

L8TAK 

A86TB 

SBTBE 

IMCFF 

IHCN 

TLINK 

PL8TR 

LISTR 

TL8TR 

.BLFA 

BACDR 

CCNT 

SBLFA 

8BPTR 

TFLAG 

TTtFL 

TSTPT 

LSTPT 

HSTPT 

PRADO 

NXTST 

.LNUH 

TYPE 

DSTRT 

NXTDT 

DCCNT 

RSYM 

SIGN 

EXP 

XH 

XL 

TEf^PS 



BSS 
BSS 
BSS 
BSS 
DEF 
BSS 
BSS 
DEF 
BSS 
BSS 
BSS 
DEF 
BSS 
BSS 
BSS 
BSS 
DEF 
DEF 
BSS 
BSS 
BSS 
DEF 
DEF 
DEF 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 



1 

1 

1 

1 

STOP 

1 

1 

FINIS 

1 

1 

1 

FINBP 

1 

1 

1 

1 

FINIS 

FINIS 

1 

1 

1 

PUNCHf I 

WRITtrl 

teRITE^I 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

12 



PHOTO READER LINK 

TTY OUTPUT LINK 

PUNCH LINK 

KEYBOARD LINK 

STOP LINK 

LAST WORD OF AVAILABLE MEMORY 

•BOSS' DRIVER LINKAGE 

FIRST WORD OF AVAILABLE MEMORY 

LAST WORD OF AVAILABLE MEMORY 

FIRST WORD OF USERS PROGRAM 

LAST WORD*l OF USER'S PROGRAM 

FIRST WORD AVAILABLE BASE PAGE 

START OF FREE CORE 

START OF SYMBOL TABLE 

SYMBOL TABLE END 

LOW-CORE STACK ADDRESS 

START OF CALL LINKAGE TABLE 

LAST WORD +1 OF CALL TABLE 

LINK TO INTERRUPT OFF 

LINK TO INTERRUPT ON 

TTY INTERRUPT LINK 



LIST DEVICE REFERENCE 

I/O BUFFER ADDRESS 
I/O BUFFER 
POINTERS 
SYNTAX BUFFER AODNESS 
SYNTAX BUFFER POINTER 



TEMPORARY STACK POINTER 
LOW-CORE STACK POINTER 
HIGH-CORE STACK POINTER 
PROGRAM EXECUTION 

SEQUENCING INFORMATION 
CURRENT LINE NUMBER 
CURRENT STATEMENT TYPE 
DATA 

STATEMENT 
POINTERS 



RANDOM 

VARIABLE 
TEMPORARIES 



JSB»I 



PAGE 0020 #9i BASE PAGE LINKS AND CONSTANTS 



0058 00171 MLSXl EQU TEMPS4-ltf 

0059 00173 000000 Bl BSS 2 
0b60 00175 000000 B2 BSS 2 
0061 00177 0ld0000 B3 BSS 2 



PAGE 0021 #01 BASE PA6E LINKS AND CONSTANTS 



0063 

0064 

0065 

0066 

06>67 

0066 

0069 

0070 

0071 

0072 

0073 

0^74 

0075 

0076 

0077 

0078 

0079 

0060 

0061 

0082 

0083 

0064 

0085 

0066 

0087 

0088 

0069 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0R96 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0106 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 



00201 

00202 

00203 

00204 

00205 

00206 

00207 

00210 

00211 

00212 

00213 

00214 

00215 

00216 

^0217 

00220 

00221 

00222 

00223 

00224 

00225 

00226 

00227 

00230 

00231 

00232 

00233 

00234 

00235 

00236 

00237 

00240 

00241 

00242 

00243 

00244 

00245 

00246 

00247 

00250 

00251 

00252 

00253 

00294 

00285 

00256 

00257 

00260 

00261 

00262 

00263 

00264 

00265 

00266 

00267 

00270 



002010 

005137 

006006 

002041 

002027 

002121 

004572 

004110 

011406 

004223 

004513 

000667 

000615 

004351 

001643 

010040 

004333 

005015 

005055 

001677 

001715 

001614 

001570 

001603 

007620 

006064 

005544 

011072 

011201 

007343 

007347 

007416 

007463 

001423 

001236 

001456 

001020 

011432 

001364 

006456 

004410 

004447 

004437 

006126 

012045 

006044 

003317 

005547 

005612 

005617 

005626 

006714 

014477 

014477 

001525 

002360 



START 

RUKA 
FASE3 
PEXMA 
WDtDA 
ORGSA 
LISTA 
=*^MATA 
EMATA 
TSfiCH 
FNEPA 
CNSTA 
NUrCA 
INCHK 
ENCTA 
NUfOA 
PSINT 
OUTiA 
OUTSA 
OUTLA 
OUTCA 
UETCA 
DI6CA 
LETCA 
SSVMA 
FE7CA 
FORHA 
.LC6A 
.EXPA 
.FADA 
.FSBA 
.FfPA 
.FCVA 
ARINA 
MPYA 
FLtNA 
PACKA 
FUT 
IFIKA 
PRMA 
CHRSA 
ACCST 
DELST 
FDAT 
LCK2A 
XEC4A 
F8C1A 
FORIA 
FOR0A 
FOR0B 
FORIB 
FR12A 
EOF 
NQEOF 
E8F1A 
ESVN3 



DEF 

DEF 

UEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

UEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

DEF 

JSB 

J8B 

DEF 

DEF 



ENTRY 

HFASE 

XEC 

PEXMK 

RDYPT 

ORQST 

LIST 

HAT*1 

EMAT 

TBSRH 

FNOPS 

CONST 

NUHCK 

INTCK 

ENOUr 

NUMOT 

PR6IN 

OUTIN 

OUTST 

OUTLN 

OUTCR 

QETCR 

D16CK 

LETCK 

SSYMT 

FETCH 

FORMX 

• LOG 
,EXP 
.FAD 
.FSB 
.FMP 

• FDV 
ARINV 
NPY 
.FLUN 
.PACK 
FLOAT 
IFIX 
PRNIN 
CHRST 
ACTST 
DLSTH 
FDATA 
LCHK2 
XEC4 
FSC14 
FORHl 
FORH0 
FORll 
FOR10 
F0R12 
ERROR 
ERROR 
E8-1 
8YNE3-1 



INITIATE BASIC SYSTEM 

PHASE 21 BUILD SYMBOL TABLE 

PHASE 3t PROGRAM EXECUTION 

RETURN TO MONITOK FROM SYNTAX 

RETURN TO MONITOK FROM PHASE 3 

REQUEST INPUT DATA 

LIST OR PUNCH PROGRAM 

MAT ENTRY IN PRINT-NAME TABLfc 

FIRST WORD OF MATRIX EXECUTION 

SEARCH PRINT-NAME TABLE 

LOCATE STATEMENT SPECIFIED BY » 

SIGNED ASCII TO BINARY 

UNSIGNED ASCII TO BINARY 

ASCII TO INTEGER CONVERSION 

SIGNED BINARY NUMBER TO ASCII 

UNSIGNED BINARY NUMBER TO ASCII 

FETCH PROGRAM INTEGER 

INTEGER TO ASCII CONVEKSION 

STRING TO BUFFER 

DUMP PRINT BUFFER WITH CR/LF 

PUT CHARACTER INTO PRINT SUFFEN 

FETCH NEXT NON-BLANK CHARACTER 

SEE IF CHARACTER IS A D 13 1 T 

SEE IF CHARACTER IS A LETTER 

SEARCH SYMBOL TABLE FOR SYMBOL 

EVALUATE FuRMULA 4 RETORN VALUE 

EVALUATE FORMULA 

TAKE NATURAL LOU OF 

COMPUTE EXPONENTIAL 

FLOATING ADD 

FLOATING SUBTRACT 

FLOATING MULTIPLY 

FLOATING DIVIDE 

NEGATE FLOATING NUMBER 

INTEGER MULTIPLY 

UNPACK FLOATING NUMBER 

PACK FLOATING NUMBER 

16-BlT INTEGER TO FLOATING 

FLOATING TO INTEGER (TRUNCATION) 

INITIALIZE PRINT BUFFER 



ARGUMENT 
OF ARGUMENT 



PAGE 0i22 ••! BASE PA8E LINKS AND CONSTANTS 



0119 00271 009401 FSCEF OEF F8CE4 

0120 00272 006767 E6MA DEF E6»l 

0121 00273 010007 EBIFA DEF EBUFF 

0122 00274 01i0t2 EBFA DEF E8FF-1 

0123 00275 01001S LBUi-A DEF LBUFF 

0124 00276 010021 LNBFA DEF LNBFF-1 

0125 00277 d977id9 ER68 DEF ERR-l 

0126 00300 000100 RECER DEF RCERR-ERR 

0127 00301 002255 FOPBS DEF QUOTE-2 
012B 00302 109035 STBAS OEF SYNTB-26»I 

0129 00303 105727 XECBR DEF XECTB-26fI 

0130 00304 1066i}5 ARBA8 DEF AR0TB-6»I 

0131 00305 010023 PDFB8 DEF PDFT-1 

0132 00306 009755 TBIAD OEF 8VCHD 

0133 00307 004006 STTYP DEF LET 

0134 00310 004067 HATIO DEF READ 

0135 00311 004125 HCBOP DEF AND 

0136 00312 004143 PDFNS OEF SIN 

0137 00313 004204 "^MATFN OEF ZER 

0138 00314 004035 ANEXT DEF NEXT 

0139 00315 004064 ADATA DEF DATA 

0140 00316 004112 ATHEN DEF THEN 

0141 00317 004115 ATC DEF TO 

0142 00420 004117 ASTEP DEF STEP 

0143 00321 004122 ANCT DEF NOT 

0144 00322 004140 ATAB DEF TAB 

0145 00323 000171 HBXL DEF HLBXl 



PAGE 


0023 #01 BASE PA8E 


LINKS AND CONSTANTS 


ei47 


00324 000001 


.1 


DEC 1 


0146 


00325 000002 


.2 


DEC 2 


0149 


00326 000003 


.3 


DEC 3 


0150 


00327 000004 


.4 


DEC 4 


0151 


00330 000006 


.6 


DEC 6 


0192 


00331 000007 


.7 


DEC 7 


01S3 


00332 000010 


.8 


DEC 8 


0194 


00333 000011 


.9 


DEC 9 


0199 


00334 000012 


.le 


DEC 10 


0196 


00335 000014 


.12 


DEC 12 


0197 


00336 000017 


.15 


DEC 19 


0196 


00337 000027 


.23 


DEC 23 


0199 


00340 000032 


.26 


DEC 26 


0160 


00341 000033 


.27 


DEC 27 


0161 


00342 000034 


.28 


DEC 28 


0162 


00343 000036 


.31 


DEC 30 


0163 


00344 000037 


.31 


DEC 31 


0164 


00349 000040 


.32 


DEC 32 


0169 


00346 000041 


.33 


DEC 33 


0166 


00347 000042 


.34 


DEC 34 


0167 


00390 000045 


.37 


DEC 37 


0166 


00391 000090 


.4e 


DEC 40 


0169 


00392 000051 


.41 


DEC 41 


0170 


00353 000063 


.43 


DEC 43 


0171 


00394 000099 


.45 


DEC 45 


0172 


00399 000096 


.46 


DEC 46 


0173 


00396 000057 


.47 


DEC 47 


0174 


00357 000060 


.48 


DEC 48 


0179 


00360 000061 


.49 


DEC 49 


0176 


00361 000072 


.58 


DEC 58 


0177 


00362 000077 


.63 


DEC 63 


0176 


00363 000100 


0180 


OCT 100 


0179 


00364 000105 


E 


OCT 105 


0180 


00369 000106 


F 


OCT 106 


0161 


00366 000110 


.72 


DEC 72 


0162 


00367 000112 


.74 


DEC 74 


0163 


08370 000113 


.75 


DEC 79 


0184 


00371 000116 


N 


OCT 116 


0189 


00372 000123 


S 


OCT 123 


0186 


00373 000133 


8133 


OCT 133 


0187 


00374 000177 


8177 


OCT 177 


0188 


00375 000200 


0200 


OCT 200 


0189 


00376 000377 


MSK0 


OCT 377 


0190 


00377 000400 


8400 


OCT 400 


0191 


00400 000776 


8776 


OCT 776 


0192 


00401 000777 


MSKl 


OCT 777 


0193 


00402 001000 


81000 


OCT 1000 


0194 


00403 002000 


02800 


OCT 2000 


0195 


00404 003000 


83800 


OCT 3000 


0196 


00405 003002 


8CCNT 


OCT 3002 


0197 


00406 004000 


84800 


OCT 4000 


0198 


00407 005000 


LF 


OCT 5000 


0199 


00410 014000 


B1400 


OCT 14000 


0200 


00411 021000 


UNrNC 


OCT 21000 


0201 


00412 022000 


82200 


OCT 22000 


0202 


00413 023000 


B2300 


OCT 23000 
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0203 08414 03S000 DEfOP OCT 35000 

0204 §0419 036000 RE»«OP OCT 36000 

0205 00416 062000 ROCP OCT 52000 

0206 00417 069146 TEKTH OCT 63146 

0207 00420 977999 OPHSK OCT 77999 

0208 00421 077600 HSK4 OCT 77600 

0209 00422 977777 INF OCT 77777 

0210 00423 100017 TYPFL OCT 100017 

0211 00424 100037 TAICN OCT 100037 

0212 00425 100777 OPCHK OCT 100777 

0213 00426 130000 RHCOE OCT 130000 

0214 00427 140000 UNNRM OCT 140000 

0215 00430 174000 HI^SK OCT 174000 

0216 00431 177777 Ml DEC -1 

0217 00432 177776 M2 DEC -2 
021S 00433 177775 H3 DEC -3 

0219 00434 177774 H4 DEC -4 

0220 00435 177773 H5 DEC -9 

0221 00436 177772 M6 DEC -6 

0222 00437 177771 H7 DEC -7 

0223 00440 177779 H0 DEC -6 

0224 00441 177767 M9 DEC -9 

0225 00442 177766 MIB DEC -10 

0226 00443 177765 Mil DEC -11 

0227 00444 177761 MIB DEC -15 
0226 00445 177760 H16 DEC -16 

0229 00446 177753 H21 DEC -21 

0230 00447 177747 M2B DEC -25 

0231 00490 177740 M32 DEC -32 

0232 00451 177725 D93 OCT -53 

0233 0td492 177706 D7a OCT -72 

0234 00493 177700 0180 OCT -100 
0239 00494 177670 M72 DEC -72 

0236 00499 177667 N73 DEC -73 

0237 00496 177664 H76 DEC -76 
023B 00497 177649 D133 OCT -133 

0239 00460 177400 M256 DEC -256 

0240 00461 17731^ M310 DEC -310 

0241 00462 176030 Hie00 DEC -1000 

0242 00463 154360 hAXSN DEC -10000 

0243 00437 HSK3 EQU M7 

0244 00464 043116 FN ASC 1»FN 

0245 00465 037440 OMARK ASC 1,1 

0246 00466 040000 HALF OCT 40000 

0247 00467 000000 OCT 

0248 00466 HOKE EQU HALF 

0249 00470 100000 HNE6 OCT 100000 

0250 00471 000376 OCT 376 

0251 00470 FL6BT EQU MNEO 

0252 00472 102756 MAXFX DEC -999999.5 

0253 00474 114631 MIKFX DEC -0.099999959 
0294 00476 000040 BLANK OCT 40 



MAXIMUM NEGATIVE FL0ATIN9 
POINT NUMBER 



PAGE S025 #01 BASE PAGE SUBROUTINES 



0256** 










0297*** EMIT LRROR 


MESSAGE < 


k* 




0298** 










0299 


00477 


000000 


ERROR NOP 






0260 


00500 


060130 


LOA 


TLSTR 


SHIFT TO 


0261 


00901 


070127 


8TA 


LISTR 


COMMAND MODE 


0262 


00902 


060133 


LDA 


CCNT 


SAVE 


0263 


00903 


071915 


STA 


OPCHK 


OUTPUT 


0264 


00904 


060132 


LDA 


BAOOR 


BUFFER 


0265 


00905 


071536 


STA 


RSCHK 


POINTERS 


0266 


00S06 


060274 


LDA 


EBFA 


SET BUFFER 


0267 


00507 


070132 


STA 


BADOK 


POINTER 


0266 


00910 


060332 


LDA 


.8 


SET CHARACTER 


0269 


00511 


070133 


STA 


CCNT 


COUNT 


0270 


00512 


064477 


LDB 


ERROR 


ERROR SOURCE IN (B) 


0271 


00913 


060277 


LDA 


ERBS 


ERROR ADDRESS IN (A) 


0272 


00914 


002004 


INA 




MOVE TO NEXT ERROR 


0273 


00919 


194000 


CPB 


0,1 


SAME AS ACTUAL ERROR? 


0274 


00916 


003005 


CMA. 


rINArRSS 


YES 


0275 


00517 


024914 


JMP 


• -3 


NO 


0276 


00520 


040277 


ADA 


ERBS 


COMPUTE ERROR 


0277 


00921 


071643 


STA 


ENOUT 


SAVE NEGATIVE OF ERROR 


0278 


00922 


003004 


CMA, 


rINA 


NUMBER 


0279 


KI0923 


114222 


J8B 


OUTIA^I 


NUMBER TO BUFFER 


0280 


00524 


064273 


LDB 


EBUFA 


LOAD BUFFER ADDRESS 


0261 


00625 


060133 


LDA 


CCNT 


LOAD NEGATIVE OF 


0282 


00526 


003ij04 


CMA, 


>INA 


CHARACTER COUNT 


0283 


00527 


114102 


JSB 


WRITErl 


OUTPUT ERROR MESSAGE 


0284 


00930 


06itf276 


LDA 


LNBFA 


OUTPUT 


0289 


00531 


070132 


STA 


BAOOR 




0286 


00532 


060334 


LDA 


.10 




0287 


00533 


070133 


STA 


CCNT 


LINE 


0288 


00534 


060149 


LDA 


.LNUM 




0289 


00539 


114222 


JSB 


OUTIA^I 




0290 


00936 


064279 


LDB 


LBUFA 


NUMBER 


0291 


00937 


060133 


LOA 


CCNT 




0292 


00540 


114102 


JSB 


WRITErl 




0293 


00541 


061643 


LDA 


ENOUT 


RETRIEVE NEGATIVE OF ERROR 


0294 


00542 


040300 


ADA 


RECER 


RECOVERABLE 


0299 


00543 


002021 


SSAi 


,RSS 


ERROR? 


0296 


00944 


124204 


JMP 


PEXMAfl 


NO, RETURN TO SYNTAX MODE 


0297 


00949 


060426 


LDA 


RMOOE 


RETURN TO 


0298 


00946 


070127 


STA 


LISTR 


RUN MODE 


0299 


00947 


061919 


LDA 


OPCHK 


RESTORE 


0300 


00990 


070133 


STA 


CCNT 


OUTPUT 


0301 


00991 


061636 


LOA 


RSCHK 


BUFFER 


0302 


00552 


070132 


STA 


BADDR 


POINTERS 


0303 


00993 


124477 


JMP 


ERRORfl 


RETURN TO PROGRAM 
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0305* 

0306* 

0307* 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0316 

0319* 

0320* 

0321* 

0322 

0323 

0324 

0325 

0326 

0327 

0326 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0336 

0339 

0340 

0341 

0342 

0343 

0344* 

0345* 

0346* 

0347 

0346 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0356 

0359 

0360 



* 



MOVE WORDS TO HIQHER CORE *• 



00654 
00555 
00656 
00957 
00560 
00S61 
00562 
00563 
08564 
00565 
00566 



000000 

064162 
054163 
124554 
003400 
040164 
070164 
044431 
160001 
170164 
024556 



MVTOM 



MV701 



* 



00567 
00570 
00571 
00572 
00573 
00574 
00575 
00576 
00577 
00600 
00601 
00602 
00603 
00604 
00605 
00606 
00607 
00610 
00611 
00612 

00613 
00614 



000000 
016614 
124567 
006400 
074163 
006004 
050363 
024602 
050354 
007401 
024605 
074153 
016614 
024613 
014615 
024611 
034567 
124567 
054153 
003401 
014477 
124567 



CONST 



CONSl 



CQNS2 



C0KS3 



SYE12 



NOP 
LOB 
CPB 
JMP 
CCA 
ADA 
STA 
ADB 
LDA 
STA 
JMP 



INPUT A CONSTANT ** 



NOP 
JSB 
JMP 
CUB 
STB 
!NB 
CPA 
JMP 
CPA 
COB 
JMP 
STB 
JSB 
JMP 
JSB 
JMP 
ISZ 
JMP 
CPB 
CCA 
JSB 
JMP 



TEMP2 

TEMP3 
MVTOhrl 

TeMP4 

TEMP4 

Ml 

I. I 

TEMP4rI 

MVTdl 



BETCR 
CONST, I 

8I6N 



.43 

CONSl 

.45 
,RSS 

C0NS2 

SIGN 

8ETCR 

SYE12-1 

NUMCK 

C0NS3 

CONST 

CONSTr 

SI8N 
rRSS 

ERROR 

CONSTf I 



I 



FETCH SOURCE ADDRESS 
ALL RELOCATION DONE? 
YES, EXIT 
BACK UP 

SOURCE AND 
DESTINATION 
ADDRESSES 
MOVE 
WORD 



SET SIGN 
POSITIVE 

»♦• T 

YES 

NO, •-• 7 

YES 

NO 

RECORD SIGN 

FETCH NEXT 

CHARACTER 
FETCH CONSTANT 
NONE FOUND 
SUCCESSFULLY FOUND, 

EXIT VIA <P*2) 
SIGN FOUND? ( (B) " 
NO 

YES, SOLITARY SIGN 
EXIT VIA (P*l) 



0) 



** FETCH NUMBER AND CONVERT TO BINARY *• 

CHARACTER IN (A), SIGN SET 



00615 
00616 
00617 
00620 
00621 
00622 
00623 
00624 
00625 
00626 
00627 
00630 
00631 
00632 



000000 
006400 
074154 
076274 
075336 
076603 
074163 
007400 
075633 
050355 
035633 
024634 
002400 
071603 



NU»^CK NOP 
CLB 
STB 
STB 
STB 
STB 
STB 
CCB 
STB 

NUr*Cl CPA 
ISZ 
JMP 
CLA 
STA 



EXP ZERO 

MANTl ALL 

HANT2 COMPONENTS 

EXPON OF NUMBER 

TEMP3 SET 'NUMBER' FLAG FALSE 

SET 'DECIMAL POINT* 
DPFL8 FLAG FALSE 
.46 DECIMAL POINT? 
OPFLG YES, SET FLAG TRUE 
NUMC2 NO 

INITIALIZE POST-DECIMAL DIGIT 
EXPON DIGIT COUNTER TO ZERO 



PA8E 


0027 001 BASE PAOE 


SUBROUTINES 




0361 


00699 


024653 




JMP NUMC9+1 


FETCH A CHARACTER 


0362 


00694 


015570 


NUFC8 


JS0 016CK 


DIBIT? 


0363 


00695 


0247«6 




JMP NUMC7 


NO 


0364 


00696 


036603 




ISZ EXPON 


YES, COUNT DIBIT 


0365 


00637 


001727 




ALFrALF 


LEFT-JUSTIFY 


0366 


00640 


001723 




ALFrRAR 


DIGIT AND 


0967 


00641 


070164 




8TA TEMP4 


SAVE IT 


0966 


00642 


018147 




J8B MBY10 


MULTIPLY PREVIOUS NUMBER 8) 


0969 


00643 


864154 




LOB EXP 




0370 


00644 


006002 




8ZB 


ZERO EXPONENT? 


0371 


00645 


024657 




JMP NUMC4 


NO 


0372 


00646 


060327 




LDA .4 


YES, SET 


0379 


00647 


070154 




8TA EXP 


EXPONENT TO 4 


0374 


00650 


060164 




LDA TEMP4 


LOAD 


0375 


00651 


006400 




CLB 


NUMBER 


0976 


00652 


015113 


NUPC9 


J8B NORML 


NORMALIZE THE NUMBER 


0377 


00653 


034169 




ISZ TEMP9 


SET 'NUMBER OCCURRED' FLA8 


0378 


00654 


016614 




JSB 8ETCR 


ANOTHER CHARACTER? 


0379 


00655 


024755 




JMP NUM12 


NO 


0360 


00656 


024626 




JHP NUMCl 


YES 


0981 


00657 


044494 


NUKC4 


ADS M4 


COMPUTE 


0982 


00660 


007000 




CHB 


EXPONENT 


0989 


00661 


060164 




LOA TEMP4 


BIAS AND 


0984 


00662 


074164 




STS TEMP4 


SAVE IT 


0985 


00663 


006400 




CLB 




0986 


00664 


094164 


NUHC5 


ISZ TEMP4 


DIBIT POSITIONED? 


0967 


00665 


024709 




JMP NUMC6 


NO 


0988 


00666 


000040 




CLE 


YES, ADD IN 


0989 


00667 


045396 




ADB MANT2 


LOW PART 


0990 


00670 


109101 




CLO 


OF NUMBER 


0991 


00671 


002040 




SEZ 


OVERFLOW? 


0992 


00672 


002004 




INA 


YES, BUMP (A) 


0999 


00673 


041274 




ADA MANTl 


ADD IN HIGH PART OF NUMBER 


0994 


00674 


102901 




SOS 


OVERFLOM? 


0995 


00675 


024662 




JMP NUMC9 


NO 


0996 


00676 


080065 




CLErERA 


YES, ROTATE 


0997 


00677 


005500 




ERB 


DOWN AND 


0998 


00700 


094154 




ISZ EXP 


BUMP 


0999 


00701 


000000 




NOP 


EXPONENT 


0400 


00702 


024652 




JMP NUMC9 




0401 


00703 


000065 


NUf*C6 


CLErERA 


SHIFT 


0402 


00704 


005500 




ERB 


DIBIT 


0409 


00705 


024664 




JMP NUMC5 


RI6HT 


0404 


00706 


886400 


Hl)¥C7 


CLB 


DECIMAL POINT 


0405 


00707 


074164 




STB TEMP4 




0406 


00710 


054163 




CPB TEMP9 


OR DIBIT FOUND? 


0407 


00711 


124615 




JMP NUMCK^I 


NO, EXIT VIA (P*l) 


0408 


00712 


050364 




CPA E 


YES, 'E' ? 


0409 


00713 


002001 




RSS 


YES 


0410 


00714 


024765 




JMP NUM12 


NO, NO EXPONENT PART 


0411 


00715 


015614 




JSB 6ETCR 




0412 


00716 


014477 


NUr'ER 


JSB ERROR 




0419 


00717 


050953 




CPA ,49 


»♦• ? 


0414 


00720 


024725 




JMP NUMC8 


YES 


0415 


00721 


050954 




CPA .45 


NO, •-• ? 


0416 


00722 


009401 




CCA, RSS 


YES 



10 
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0417 
0416 
0419 
0420 
0421 
0422 
0423 
0424 
0429 
0426 
0427 
0426 
0429 
0430 
0431 
0432 
0433 
0434 
0435 
0436 
0437 
0438 
0439 
0440 
0441 
0442 
0443 
0444 
0445 
0446 
0447 
0446 
0449 
0490 
0451 
0452 
0453 
0454 
0455 
0456 
0457 
0498 
0459 
0460 
0461 
0462 
0463 
0464 
0465 
0466 
0467 
0468 
0469 
0470 
0471 
0472 



00723 
00724 
00725 
00726 
00727 
0B730 
00731 
00732 
00733 
00734 
00735 
00736 
00737 
00740 
00741 
00742 
00743 
00744 
00745 
00746 
00747 
00790 
00751 
00752 
00753 
00754 
00755 
00756 
00757 
00760 
00761 
00762 
00763 
00764 
00765 
00766 
00767 
9977^ 
00771 
00772 
00773 
00774 
00775 
00776 
99777 
01000 
01001 
01002 
01003 
01004 
01005 
01006 
01007 
01010 
01011 
01012 



024727 
070164 
015614 
024716 
019570 
024716 
070163 
019614 
024751 
019570 
024751 
064163 
005020 
044163 
009000 

040001 
070163 
019614 
024791 
015970 
002001 
024716 
060163 
034164 
003004 
002001 
002400 
036633 
041603 
002003 
024776 
002020 
024772 
003004 
071603 
015200 

039603 
024766 
024776 
071603 
015147 
039603 
024773 
061274 
069336 
034193 
029009 
003000 
997997 
002004 
019020 
034135 
170135 
034135 
174135 
034135 



NUPC6 
NUfC9 



NUf>10 



NUM12 



NU^13 



NUf 14 



NUM5 



JMP 

STA 

J8B 

JHP 

JSB 

JMP 

STA 

JSB 

JMP 

JSB 

JMP 

LOB 

BLSr 

ADB 

BL8 

ADA 

STA 

JSB 

JMP 

JSB 

RS8 

JMP 

LOA 

ISZ 

CMAr 

R8S 

CLA 

ISZ 

ADA 

SZAr 

JMP 

SSA 

JMP 

CMAr 

STA 

JSB 

ISZ 

JMP 

JMP 

STA 

JSB 

ISZ 

JMP 

LDA 

LOB 

ISZ 

JMP 

CMA 

CMBr 

INA 

JSB 

ISZ 

STA 

ISZ 

STB 

ISZ 



NUMC9 

TEMP4 

6ETCR 

NUMER 

0I8CK 

NUMEK 

TEMPS 

6ETCR 

NUM10 

DIQCK 

NUM10 

TEMP3 

BL8 

TEMP3 



TEMP3 
6ETCR 
NUM10 
DIGCK 

NUMER 
TEMP3 
TEMP4 
INA 



DPFLG 
EXPON 
RSS 

NUM14 

NUM13 

INA 

EXPON 

D6Y10 

EXPON 

• -2 
NUMi4 
EXPON 
MBY10 
EXPON 

• -2 
MANTl 
MANT2 
SIGN 
NUM15 

INBrSZB, 

• PACK 
SBPTR 
SBPTRrI 
SBPTR 
8BPTR»I 
SBPTR 



NO 

NOTE 1INUS SIGN 



DIGIT? 

NO 

YES, SAVE IT 

SECOND 

DIGIT? 
NO 
YES 
MULTIPLY 

PRIOR DIGIT 
BY 10 
ADD NEW DIGIT 
SAVE EXPONENT 

TMIRD 

DIGIT? 
NO 
YES 

LOAD EXPONENT 
POSITIVE? 

YESr COMPLEMENT IT 
NO 

CLEAR IF NO EXPONENT PART 
DECIMAL POINT? 
YES, CORRECT EXPONENT 
ZERO EXPONENT? 
YES 

NO, NEGATIVE EXPONENT? 
NO 
YES, SET 

COUNTER 
DIVIDE NUMBER BY 10 
DONE? 
NO 
YES 

SET COUNTER 
MULTIPLY BY 10 
DONE? 
NO 
YES, LOAD 

NUMBER 
POSITIVE? 
YES 
NO, 
RSS COMPLEMENT 
IT 
PACK NUMBER INTO (A) AND (B) 

STORE 

NUMBER IN 
PROPER 

LOCATION 
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0473 


01013 


015633 


JSB BCKSP 


FETCH 


0474 


01014 


015614 


JSe 6ETCM 


FIRST 


0475 


01015 


060334 


LDA .10 


UNUSED CHARACTER 


0476 


01016 


034615 


ISZ NUMCK 


RETURN 


0477 


01017 


124615 


JHP NUMCKrI 


VIA (P*2» 


0478** 








0479*** NORMALIZE 


AND PACK FLOATlNe POINT NUMBER ** 


0480** 








0481 


01020 


000000 


.PACK NOP 


MANTISSA IN (A) AND (B), 


0482 


01021 


015113 


JSB NORML 


EXPONENT IN EXP, (E) CLEARED 


0483 


01022 


002103 


CLErSZA^RSS 


ZERO RESULT? 


0484 


01023 


125020 


JMP .PACK^I 


YES 


0485 


01024 


044374 


ADB B177 


NO, ROUND 


0486 


01025 


002021 


SSA^RSS 


POSITIVE NUMBER? 


0487 


01026 


006004 


INB 


YES, FINISH ROUND 


0488 


01027 


103101 


CLO 




0469 


01030 


002040 


8EZ 


OVERFLOW FROM (8)? 


0490 


01031 


002104 


CLEflNA 


YESr BUMP (A) 


0491 


01032 


102301 


SOS 


OVERFLOM? (A>100000, B>0) 


0492 


01033 


001200 


RAL 




0493 


01034 


002031 


SSArSLArRSS 


TWO HIGH BITS ifS? (A-140000) 


0494 


01035 


025040 


JMP PACKl 


NO 


0495 


01036 


002300 


CCE 


YES 


0496 


01037 


001130 


ARSfSLArALS 


SET (A) «100000 AND SKIP 


0497 


01040 


001300 


PACKl RAR 


COUNTERPART TO *-5 


0498 


01041 


071147 


STA MBY10 


SAVE (A) 


0499 


01042 


060001 


LOA 1 


DELETE 8 LOW 


0500 


01043 


010460 


AND M256 


ORDER BITS OF MANTISSA 


0501 


01044 


070001 


STA 1 


SAVE LOWER MANTISSA 


0502 


01046 


060154 


LDA EXP 


FETCH EXPONENT 


0503 


01046 


002040 


SEZ 


DECREMENT EXPONENT? 


0504 


01047 


040431 


ADA Ml 


YES 


0505 


01050 


102201 


80C 


NO, PRIOR OVERFLOW? 


0506 


01051 


002004 


INA 


YES, INCREMENT EXPONENT 


0507 


01052 


040375 


ADA B200 


NO, EXPONENT 


0508 


01053 


002020 


SSA 


UNDERFLOW? 


0509 


01054 


025073 


JMP PACK3 


YES 


0510 


01055 


040460 


ADA M256 


NO, EXPONENT 


0611 


01056 


002021 


SSArRSS 


OVERFLOW? 


0612 


010S7 


025077 


JMP PACK4 


YES 


0513 


01060 


040375 


ADA B200 


NO, RESTORE EXPONENT, 


0514 


01061 


001200 


RAL 


POSITION SIGN, 


0515 


01062 


010376 


AND MSK0 


MASK TO 8 BITS, AND 


0516 


01063 


044000 


ADB 


COMBINE WITH LOW MANTISSA 


0517 


01064 


061147 


LDA MBY10 


RETRIEVE HIGH MANTISSA 


0516 


01065 


050470 


CPA MNE8 




0519 


01066 


002001 


RS8 


NEGATIVE 


0520 


01067 


125020 


JMP .PACK, I 




0521 


01070 


054471 


CPB MNES41 


OVERFLOW? 


0522 


01071 


026077 


JMP PACK4 


YES 


0523 


01072 


125020 


JMP .PACKrl 


NO 


0524 


01073 


014477 


PACK3 JSB ERROR 




0525 


01074 


002400 


UNDER CLA 


ZERO RESULT 


0526 


01075 


006400 


CL8 


ON UNDERFLOW 


0527 


01076 


125020 


JMP .PACKrI 




0526 


01077 


014477 


PACK4 JSB ERROR 
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0529 01100 061147 OVfiER LDA 

0530 01101 015103 JS6 

0531 01102 125e20 JHP 
0S32** 

0533*** 

0534** 

0535 01103 000000 OVFLM NOP 

0536 

0537 



HBY10 
OVFLKi 
.PACKrI 



LOAD INFINITY ON OVERFLOW •• 



01 
01 
01 
01 
01 
01 
01 



0538 

0539 

0540 

0541 

0542 

0543** 

0544*** 

0545** 

0546 01 

0547 

0548 

0549 

0550 

0551 

0552 

0553 

0554 

0555 

0556 

0557 



104 
105 
106 
107 
110 
111 
112 



064432 
002020 
064400 
030422 
002020 
060470 
125103 



LDB 
SSA 
LDB 
lOR 
SSA 
LDA 
JMP 



M2 

B776 
INF 

HNE6 
OVFLWr I 



LOAD 

APPROPRIATE 
LOW MANTISSA 
LOAD 

APPROPRIATE 

HIGH MANTISSA 



NORMALIZE (A), <B)r AND EXP *• 



0556 

0559 

0560 

0561 

0562 

0563 

0564 

0565 

0566 

0567 

0568 

0569 

0570 

0571 

0572 

0573 

0574** 

0575*** 

0576** 

0577 01 

0578 

0579 

0580 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



113 
114 
115 
116 
117 
120 
121 
122 
123 
124 
125 
126 
127 
130 
131 
132 
133 
134 
136 
136 
137 
140 
141 
142 
143 
144 
145 
146 



000000 
071147 
002400 
071236 
061147 
002003 
006002 
025130 
070154 
071274 
075336 
125113 
035236 
004066 
001600 
002061 
025127 
002060 
025127 
001500 
005540 
071274 
061236 
003004 
040154 
070154 
061274 
025125 



NORHL 



N0I<M1 

N0RM2 
NORMS 



NOP 
8TA 
CLA 
STA 
LDA 
SZA 
SZB 
JMP 
STA 
STA 
STB 
JMP 
ISZ 
CLE 
ELA 
SEZ 
JMP 
SEZ 
JMP 
ERA 
ERB 
STA 
LDA 
CMA 
ADA 
STA 
LDA 
JMP 



MBY10 

MPY 
MBY10 
^RSS 

N0RM3 
EXP 
MANTl 
MANT2 
NORMLrl 
MPY 
rELB 

rSSArRSS 

N0RM2 
,SSA 

N0RM2 

fCLE 

MANTl 

MPY 
r INA 

EXP 

EXP 

MANTl 

NORMl 



SET 

LEFT-SHIFT 
COUNTER 
TO ZERO 

ON 

ZERO 
CLEAR 

EVERYTHING 

STORE 

MANTISSA 

AND RETURN 
COUNT LEFT SHIFTS 
ROTATE ik) AND 

(B) LEFT INTO <E> 
TWO HIGHEST BITS 0? 
YES, ♦ UNNORMALIZED 
NO, TWO HIGHEST BITS 
YES, - UNNORMALIZED 
SHIFT TO 

NORMALIZE MANTISSA 
NO, 

COMPUTE 

CORRECTED 
EXPONENT 
VALUE 



0581 
0582 
0583 
0584 



01 
01 
01 
01 
01 
01 
01 



147 
150 
161 
152 
153 
154 
155 
156 



000000 
061274 
002003 
125147 
064154 
044326 
074154 
065336 



MBY10 



NOP 

LDA MANTl 
SZA,RSS 
JMP MaY10, 
LDB EXP 
AOB .3 
STB EXP 
LOB MANT2 



1? 



MULTIPLY UNPACKED NUMBER BY 10 •* 



RETURN ON 
ZERO 
I MANTISSA 
MULTIPLY 
BY 
S 
LOAD MANTISSA 
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0585 

0566 

0587 

0568 

0589 

0590 

0591 

0592 

0593 

0594 

0595 

0596 

0597 

0596 

0599 

0600 

0601 

0602* 

0603* 

0604* 

0605 

0606 

0607 

0608 

0609 

0610 

0611 

0612 

0613 

0614 

0615 

0616 

0617 

0616 

0619 

0620 

0621 

0622 

0623 

0624 

0625 

0626 

0627 

0626 

0629 

0630 

0631 

0632 

0633 

0634 



01167 
01160 
01161 
01162 
01163 
01164 
01165 
01166 
01167 
01170 
01171 
01172 
01173 
01174 
01175 
01176 
01177 



000065 
005500 
000065 
005540 
045336 
002040 
002004 
041274 
002021 
025175 
00B065 
005500 
034154 

000000 

071274 
075336 
125147 



CLErERA 

ERB 

CLERERA 

ERBfCLE 

ADB MANT2 

8E2 

INA 

ADA MANTl 

SSArRSS 

JMP ♦♦5 

CLEfERA 

ERB 



ISZ 
NOP 
8TA 
STB 
JMP 



EXP 

MANTl 
MANT2 
MBYlBrl 



01200 
01201 
01202 
01203 
01204 
01205 
01206 
01207 
01210 
01211 
01212 
01213 
01214 
01215 
01216 
01217 
01220 
01221 
01222 
01223 
01224 
01225 
01226 
01227 
01230 
01231 
01232 
01233 
01234 
01235 



000000 
061274 
002003 
125200 
064432 
044154 
074154 
061336 
000065 
015236 
000417 
000066 
005640 
040001 
002040 
006004 
075336 
061274 
015236 
000417 
000040 
040001 
041336 
002040 
006004 
075274 
070001 
061274 
015113 
125200 



OBV10 NOP 
LDA 
SZA 
JMP 
LD6 
ADB 
STB 
LDA 
CLE 
J8B 
DEF 
CLE 
ELB 
ADA 
8EZ 
INB 
STB 
LDA 
JSB 
DEF 
CLE 
ADA 
ADA 
SEZ 
INB 
STB 
STA 
LDA 
JSB 
JMP 



MANTl 
rRSS 

DBY10,I 

M2 

EXP 

EXP 

MANT2 
,ERA 

MPV 

TENTH 
,ELA 
,CLE 

1 



MANT2 
MANTl 
MPY 
TENTH 

1 

MANT2 



MANTl 

1 

MANTl 

NORML 

DBYlBrI 



DIVIDE 
BY 

4 

DOUBLE 
ADD TO 
PRODUCE 

1,25 • MANTISSA 
CORRECT 

ON 

OVERFLOW 



** DIVIDE UNPACKED NUMBER BY 10 •• 



MULTIPLY BY DOUBLE-LENGTH TENTH 
RETURN 
ON ZERO 
MANTISSA 
ADD EXPONENT OF 
•TENTH' TO 

MANTISSA EXPONENT 
JUSTIFY 

LOMER MANTISSA 
MULTIPLY BY 

63146 (ONE-TENTH> 
SHIFT 

BACK 
ADO IN LOWER MANTISSA* 
TENTH*(2>-16 
AND ROUND 
TO 16 BITS 
DO 

SAME 
FOR 
HIGH 

MANTISSA 
(EFFECTIVELY) SUM 
DOUBLE-LENGTH 
PRODUCTS 
EXCHANGE 

(A) AND <B) 
REGISTERS 
NORMALIZE RESULT 
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0001** 

0002*** 

0003** 



MULTIPLY INTEGER IN (A) *• 



0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0tol6 

0017 

0016 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0U30 

0031 

0032 

0ki33 

0034** 

0035*** 

0036** 



01236 
01237 
01240 
01241 
01242 
01243 
01244 
01245 
01246 
01247 
01260 
01251 
01252 
01253 
01254 
01255 
01256 
01257 
01260 
01261 
01262 
01263 
01264 
01265 
01266 
01267 
01270 
01271 
01272 
01273 



000000 
064432 
075147 
165236 
164001 
002120 
003204 
006020 
007204 
002040 
036147 
075113 
064445 
074554 
006400 
001600 
001560 
045113 
005500 
034554 
025256 
001540 
035147 
025271 
007^100 
003007 
006004 
103101 
035236 
125236 



hPT 



NOP 
LDB 
STB 
LDB 
LDB 



MPYl 



MPY2 



H2 

HBY10 

MPY,l 

Ifl 

CLEfSSA 

CMArCHErlNA 

8SB 
CMBrCMErlNB 

8EZ 

182 MBY10 

STB NORNL 

LOB H16 

STB NVTOM 

CLB 

ELA 

ERA^CLErSLA 

AOB NORNL 

ER6 

ISZ MVTOH 

JMP MPYl 

ERAfCLE 

ISZ HBY10 

JHP NPY2 

CMB 

CMArlNAfSZAr 

INB 

CLO 

ISZ NPY 

JMP MPY,I 



ADDRESS OF MULTIPLIER IN NPYrI 
SET -2 IN 

SIGN TEMP 
LOAD 

MULTIPLIER 
(A) NEGATIVE! 

YES, COMPLEMENT (A) AND <E> 
<B> NEGATIVE? 

YES, COMPLEMENT (B) AND (E) 
(E) ■ 0T 

NO, SET SIGN OF RESULT NEGATIVE 
SAVE MULTIPLIER 
SET 

COUNTER 
ZERO PRODUCT 
BIAS (A) TO LEFT 
SHIFTr TEST, 

AND ADD UPON 
NON-ZERO BIT 

DONET 
NO 

YES, ADJUST FINAL RESULT 
NEGATIVE RESULT? 
NO 
YES, 
R8S COMPLEMENT 
RESULT 



FIND AND STORE ONE-CHARACTER OPERATORS ♦* 



0037 

0036 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0046 
0040 
0050 
0051 
0052 
0053 
0054 
0055 
0056 



01274 
01275 
01276 
01277 
01300 
01301 
01302 
01303 
01304 
01305 
01306 
01307 
01310 
01311 
01312 
01313 
01314 
01315 
01316 
01317 



000000 
074165 
001727 
030345 
165274 
035274 
044325 
150001 
025312 
034165 
025302 
001727 
010374 
125274 
003400 
040001 
160000 
010420 
170135 
050410 



SYfCK NOP 

STB COUNT 
ALF,ALF 
lOR .32 
LDB SYMCK,! 
ISZ SYNCK 

SYKCl ADB .2 
CPA 1,1 
JMP SYMC2 
ISZ COUNT 
JMP SYMCl 
ALF,ALF 
AND B177 

SYMCK, I 



CA) 

BE SEARCHED) 



SY»*C2 



JMP 
CCA 
ADA 
LDA 
AND 
STA 
CPA 



1 

BrI 
0PM8K 

SBPTR,I 
B14B0 



CHARACTER IN 
•(ENTRIES TO 
POSITION 

CHARACTER 
STARTING TABLE ENTRY - 
SET RETURN ADDRESS 
UPDATE TABLE POINTER 
MATCH? 

NO, CONTINUE SEARCH? 
YES 

NO, RESTORE 
CHARACTER 
AND EXIT 
SET 

INFORMATION 
WORD 
AND 

STORE IT 
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0057 

005S 

0059 

0060* 

0061* 

0062* 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 



01320 
01321 
01322 

* 

* 
01323 
01324 
01325 
01326 
01327 
01330 
01331 
01332 
01333 
01334 
01335 



124257 

036274 
125274 



JMP FSCUrl 
181 8YNCK 
JMP SVHCKrI 



FIND CAtLEO SUBROUTINE ** 



000000 
074162 

064121 

054122 
014477 
160001 
010362 
050162 
125323 
044325 
025326 



FND 



FND 



CAL 



SB NOP 
STB 
LD8 

SI CPi 

J8B 
ER LOA 
AND 
CPA 
JHP 
ADB 
JMP 



TEMPa 
A8BTB 
SiTBE 

ERROR 

l#I 
.63 

TEHP2 
FNOSBrI 
.2 
FNDSl 



RETURN VIA 
(P*2> 



SAVE SUBROUTINE NUMBER 

LOAD (8) MITH SUBROUTINE TABLE 

END OF TABLE? 

YES 

NO, EXTRACT 

SUBROUTINE NUMBER 
DESIRED ONE? 
VE8 
NOf MOVE TO 

NEXT TABLE ENTRY 



0075* 
0076« 

0078* 

0079* 

0060* 

0061* 

0082* 

0063* 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 



SUBROUTINE TO COMPUTE THE STORAGE REQUIRED BY AN 
ARRAY MHOSE PACKED DIMENSIONS ARE IN A UPON ENTRY 



THE SUBROUTINE RETURNS IN A THE NUMBER OF LOCATIONS 
REQUIRED FOR THE SPECIFIED DIMENSIONS 
» 2*DIM1«0IM2 



01336 000000 MDIM NOP 

01337 070001 STA 1 

01340 010376 AND MSK0 

01341 071456 STA .FLUN 

01342 060001 LDA 1 

01343 001727 ALFrALF 
0134^1 010376 AND MSK0 

01345 001000 ALS 

01346 015236 JSB MPY 

01347 001456 OEF .FLUN 

01350 002020 SSA 

01351 014477 JSB ERROR 

01352 125336 MER9 JMP MDIM, I 



STORE PACKED DIMS. TEMPORALILY 
STORE * OF COLUMNS 



A ■ « OF ROWS 

DOUBLE FOR FLOATING POINT 

COMPUTE 2*R0NS*C0LUMNS 
RESULT < 32768 ? 
NO, ERROR^ DIMENSIONS TOO LARGE 
YES, RETURN 
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0098** 














0099*** ROUND A SUBSCRIPT TO AN INTEGER ** 






0100** 














0101* 
















0102* 


RETURNS INTEGER IN 


11,32767) fBlASED BY -1) 






0103* 


OR EXITS TO 


ERROR. 










0104* 
















0105 


01353 


000000 


SBFIX 


NOP 


SUBSCRIPT IN (A) AND 


(B) 




0106 


01354 


015364 




J8B IFIX 


24-BIT INTEGER? 






0107 


01355 


124272 




JHP E6MtArI 


NO 






0106 


01356 


002041 




SEZfRSS 


YES, ROUND AND 






0109 


01357 


044431 




ADB HI 


BUS BY -1 






0110 


01360 


002003 




SZA^RSS 


16-BIT 






0111 


01361 


006020 




8SB 


POSITIVE INTEGER? 






0112 


01362 


124272 




JMP E6HlArI 


NO 






0113 


013ft3 


129353 




JMP SBFIXrl 


YES 






0114«* 














0115*** INTEQER12E 


FLOATING POINT NUMBER ** 






0116** 














0117 


01364 


000000 


IFIX 


NOP 








0118 


01365 


102101 




8T0 








0119 


01366 


071614 




STA 6ETCR 


SAVE (A> 






0120 


01367 


015456 




J3B .FLUN 


EXPONENT 






0121 


01370 


002020 




SSA 


NON-NEGATIVE? 






0122 


01371 


025414 




JMP IFIX3 


NO 






0123 


01372 


040445 




ADA M16 


YES, EXPONENT 






0124 


01373 


002020 




SSA 


<- 15? 






0129 


01374 


103101 




CLO 


YES 






0126 


01375 


040440 




ADA H8 


EXPONENT 






0127 


01376 


002021 




SSArRSS 


<• 237 






0128 


01377 


125364 




JMP IFIX, I 


NOr ALL SIGNIFICANCE 


IS 


INTEGER 


0129 


01400 


040440 




ADA M8 


MOVE BINARY POINT TO 


END 


OF (B) 


0130 


01401 


071456 




STA .FLUN 


SAVE SHIFT COUNT 






0131 


01402 


061614 




LDA 6ETCR 


RETRIEVE (A) 






0132 


01403 


025410 




JMP IFIX2 








0133 


01404 


000071 


IFIXl 


CLErSLArARS 


SHIFT (A) RIGHT 






0134 


01405 


002200 




CHE 


SHIFT (B) 






0136 


01406 


004035 




SLBrERB 


RIGHT 






0136 


01407 


102101 




8T0 


NOTE IF A 1 IS LOST 






0137 


01410 


036496 


iriX2 


ISZ .FLUN 


DONE? 






0138 


01411 


029404 




JHP IFIXl 


NO 






0139 


01412 


035364 




ISZ IFIX 


YES 






0140 


01413 


125364 




JMP IFIXrl 








0141 


01414 


061614 


IF1X3 


LDA GETCR 


RETRIEVE (A) 






0142 


01415 


002120 




CLEfSSA 


TRUNCATE 






0143 


01416 


003401 




CCArRSS 


TO 






0144 


01417 


002401 




CLA,R88 


-1 






0145 


01420 


007401 




CCBfRSS 


OR 






0146 


01421 


006400 




CLB 









0147 


01422 


025412 




JMP IFIX2'i.2 
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0149** 










0150*** TAKE ARITHHETIC 


INVERSE ** 




0151** 










0152 


01423 


000000 


ARINV 


NOP 


NUMBER IN (A) AND (B) 


0153 


01424 


071677 




8TA OUTLN 


SWAP 


0154 


01425 


060001 




LOA 1 




0155 


01426 


065677 




LDB OUTLN 


REGISTERS 


0156 


01427 


007100 




CHBfCLE 


COMPLEMENT HIGH PART 


0157 


01430 


020460 




XOR H256 


COMPLEMENT LOW PART 


015B 


01431 


040377 




ADA B400 


ADD IN 1 


0159 


01432 


002041 




SEZfRSS 


OVERFLOW? 


0160 


01433 


025452 




JHP ARIN2 


NO 


0161 


01434 


006004 




INB 


YES, INCREMENT HIQH MANTIS 


0162 


01435 


054470 




CPB FLSBT 


OVERFLOW? 


0163 


01436 


025442 




JHP ARINI 


YES 


0164 


01437 


054427 




CPB UNNRH 


NOf NEGATIVE UNNQRMALIZEO? 


0165 


01440 


002001 




RSS 


YES 


0166 


01441 


025452 




JMP ARIN2 


NO 


0167 


01442 


044427 


ARINI 


ADB UNNRH 


FIX HIGH HANTISSA 


0166 


01443 


000093 




SLArRAR 


POSITION EXPONENT 


0169 


01444 


030421 




lOR H8K4 


FILL IN BITS IF NEGATIVE 


0170 


01445 


006021 




SSBfRSS 


POSITIVE? 


0171 


01446 


002005 




INAfRSS 


YES, 8UHP EXPONENT 


0172 


01447 


040431 




ADA HI 


NO, DECREHENT EXPONENT 


0173 


01450 


001200 




RAL 


POSITION 


0174 


01451 


010376 




AND HSK0 


EXPONENT 


0175 


01452 


071677 


ARIN2 


8TA OUTLN 


SWAP 


0176 


01453 


060001 




LDA 1 




0177 


01454 


065677 




LDB OUTLN 


REGISTERS 


0178 


01455 


125423 




JHP ARINVrl 




0179** 










0160*** UNPACK LON 


WORD 


OF NUMBER ** 




0181** 










0182 


01456 


000000 


.FLUN 


NOP 


WORD IN (B) 


0183 


01457 


060001 




LOA 1 


(A) « (B) 


0184 


01460 


010376 




AND MSK0 


EXTRACT EXPONENT IN (A) 


0185 


01461 


§07000 




CHB 


SUBTRACT OFF 


0186 


01462 


044000 




ADB 


EXPONENT FROH 


0187 


01463 


007000 




CHB 


HANTISSA IN (B) 


0188 


01464 


000033 




BLArRAR 


NEGATIVE EXPONENT? 


0189 


01465 


030421 




lOR H8K4 


YES, FILL IN LEADING BITS 


0190 


01466 


129456 




JHP .FLUN, I 


NO 


0l9i** 










0192*** STACK (B) 


ON tow 


-CORE STACK 


** 


0193** 










0194 


01467 


000000 


8LNST 


NOP 




0195 


01470 


034141 




!SZ L8TPT 


ADVANCE 'LOW 


0196 


01471 


060141 




LDA L8TPT 


STACK' POINTER 


0197 


01472 


090142 




CPA HSTPT 


STACK OVERFLOW? 


0198 


01473 


014477 


El 


J8B ERROR 


YES 


0199 


01474 


174141 




STB LSTPTfl 


NO, STACK (B> 


0200 


01475 


125467 




JHP SLWST,! 
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0202** 














0203*** BUMP HIGH 


STACK 1 


POINTER ** 






0204** 














0205 


01476 


000000 


8HSTP 


NOP 








0206 


01477 


007400 




CCB 




ADVANCE 




0207 


01500 


044142 




AOB 


H8TPT 






0208 


015M1 


074142 




STB 


HSTPT 


POINTER 




0209 


01502 


054141 




CPB 


L8TPT 


OVERFLOW? 




0210 


01503 


025473 




JMP 


El 


YES 




02U 


01504 


125476 




JMP 


BHSTPf I 


NO 




0212** 














0213*** FETCH TOP 


OF STACK •• 






0214** 














0215 


01505 


000000 


8TT0P 


NOP 








0216 


01506 


015515 




J8B 


OPCHK 


VALIDATE 




0217 


01507 


015536 




J8B 


RSCHK 


OPERAND 




0218 


01510 


164142 




LDB 


HSTPTrl 


SAVE 




0219 


01511 


160001 




LDA 


Irl 


LOAD 




0220 


01512 


006004 




INB 








0221 


01513 


164001 




LOB 


Ul 


NUHBER 




0222 


01514 


125505 




JMP 


8TT0P,I 






0223** 














0224*** VERIFY LESITl^^ACY OF 


OPERAND 


** 




0225** 














0226 


01515 


000000 


OPCHK 


NOP 








0227 


01516 


164142 




LDB 


HSTPT, I 


OPERAND ADDRESS TO 


(B) 


0228 


01517 


160001 




LDA 


1#I 


HIGH PART OF 




0229 


01520 


050470 




CPA 


HNES 


OPERAND 1000006? 




0230 


01521 


006005 




INBi 


rRSS 


YES 




0231 


01522 


025527 




JMP 


OPCHl 


NO 




0232 


01523 


160001 




LDA 


1,1 


LON PART 




0233 


01524 


050471 




CPA 


MNEQ41 


776B7 




0234 


01525 


014477 




JSB 


ERROR 


YES 




0235 


01526 


044431 


E6 


ADB 


Ml 






0236 


01627 


054140 


OPCHl 


CPB 


TSTPT 


TEMPORARY OPERAND? 




0237 


01530 


002001 




R8S 




YES 




0238 


01531 


125515 




JMP 


OPCHK,! 


NO 




0239 


01532 


060140 




LDA 


TSTPT 


unstack 




0240 


01533 


040432 




ADA 


M2 


THE TEMPORARY 




0241 


01534 


070140 




8TA 


TSTPT 


OPERAND 




0242 


01535 


125515 




JMP 


OPCHK, I 


EXIT WITH ADDRESS 


IN (B) 


0243** 














0244*** ALLOT SPACE FCR 


INTERMEDIATE 


RESULT ** 




0245** 














0246 


01536 


000000 


RSCHK 


NOP 








0247 


01537 


060140 




LDA 


TSTPT 


ALLOT 




0248 


01540 


040325 




ADA 


.2 






0249 


01541 


070140 




STA 


TSTPT 


SPACE 




0250 


01542 


040431 




ADA 


Ml 


OVERFLOW INTO 




0251 


01543 


050120 




CPA 


LSTAK 


LOW-CORE STACK? 




0252 


01544 


002001 




RSS 




YES 




0253 


01545 


125536 




JMP 


RSCHK,! 


NO 




0254 


01546 


060120 




LDA 


LSTAK 


SAVE 




0255 


01547 


002004 




INA 




LOWER 




0256 


01550 


070163 




STA 


TCMP3 


STACK BOUND 




0257 


01551 


040333 




ADA 


.9 


UPDATE 
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easa 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272* 

0273* 

0274* 

0275 

0276 

0277 

0278 

0279 

0280 

0281 

0282 

0283 

0284 

0285 

0266* 

0287* 

0288* 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298* 

0299* 

0300* 

0301* 

0302 

0303 

0304 

0305 

0306 

0307 

0308' 

0309 

0310 

0311 

0312 

0313 



01552 
01553 
01554 
01555 
01556 
01557 
01560 
01561 
01562 
01563 
01564 
01565 
01566 
01567 



070120 
060141 
002004 
070162 
040333 
070141 
002004 
070164 
003004 
040142 
002020 
025473 
014554 
125536 



STA 

LDA 

INA 

STA 

ADA 

STA 

INA 

STA 

CMAr 

ADA 

S8A 

JNP 

JSB 

JMP 



LSTAK STACK BOTTOM 
tSTPT SET 

SOURCE 
TEHP2 ADDRESS 

,9 UPDATE 
tSTPT STACK TOP 

SET DESTINATION 
TEHP4 ADDRESS 
INA OVERFLOM 
HSTPT INTO 

HIOH-CORE STACKT 
El YES 
MVTOM NO, WOVE 
RSCHKrI LOW-CORE STACK 



CHECK FOR DIBIT ♦• 



* 

01570 

01571 

01572 

01573 

01574 

01575 

01576 

01577 

01600 

01601 

01602 
* 

*• CHECK FOR 
« 



000000 
064000 
044452 
006021 
125570 
044334 
006020 
125570 
039570 
060001 
125570 



DI6CK NOP 

LDB 

ADB D72 

SSBrRSS 

JMP DIOCK^I 

ADB .10 

SSB 

JMP 

ISl 

LDA 

JMP 



DIGCKrI 
DI8CK 
1 
DieCKrI 



LETTER ** 



01603 
01604 
01606 
01606 
01607 
01610 
01611 
01612 
01613 



000000 
064000 
044457 
006021 
125603 
044340 
006021 
035603 
125603 



LETCK NOP 

LDB 



ADB D133 
SSBrRSS 
JMP LETCK, I 
ADB .26 
SSBfRSS 
I8Z LETCK 
JMP LETCK, I 



ON END-OF-FILE CONDITION RETURN 
RETURN TO P+2 NITH NON-BLANK CH 



CHARACTER IN (A) 

ASCII 72B 

OR GREATER? 
YES, RETURN MITH CHARACTER 
NO, ASCII 60B 
OR QREATER? 
NO 

YES, SET 'SUCCESS' EXIT, 
LOAD DieiT INTO (A), 
AND RETURN 



CHARACTER IN (A) 

ASCII 133B 

OR 6REATER7 

YES, EXIT WITH CHARACTER IN U» 

NO, ASCII 181B 

OR SREATER? 
YES 
NO 

TO P*l ELSE 
ARACTER IN (A) 



01614 
01615 
01616 
01617 
01620 
01621 
0162? 
01623 
01624 
01625 
01626 
01627 



000000 
034133 
002001 
125614 
064132 
034132 
004065 
160001 
002041 
001727 
010374 
050476 



6ETCR 



NOP 
ISZ 
RS8 

JMP 

LDB 

ISZ 

CLE, 

LDA 

SEZ, 

ALF, 

AND 

CPA 



CCNT ANY CHARACTERS LEFT? 

QETCR,I NO, END-OF-FILE EXIT 

BADDR LOAD BUFFER ADDRESS 

BADDR UPDATE FOR NEXT TIME 

ERB SET CHARACTER FLAB 

1,1 LOAD CURRENT BUFFER WORD 

R88 FIRST CHARACTER? 

ALF YES, POSITION IT 

B177 MASK EXTRANEOUS BITS 

BLANK BLANK? 
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.630 02B615 

,631 0356U 

632 129614 



0314 01 

0319 01 
0316 01 
0317** 
B31S*** 
0319** 

0320 01633 000000 BCKSP NOP 
0321 



JMP GETCR+1 
ISZ GETCR 
JMP GETCRrI 



YES, FETCH NEXT CHARACTER 
UPDATE RETURN ADDRESS 
AND EXIT 



BACKSPACE OVER ONE CHARACTER •* 



01 
01 
01 
01 

01 
01 
01 



0322 

0323 

0324 

0325 

0326 

0327 

0326** 

0329*** 

0330** 

0331 01 

0332 

0333 

0334 

0335 



634 

636 
636 
637 
640 
641 
642 



003400 
040133 
070133 
003400 
040132 
070132 
125693 



PRINT A NUH8ER 



0336 

0337 

0338 

0339 

0340 

0341 

0342** 

0343*** 

0344** 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



643 
644 
645 
646 
647 
650 
651 
652 
653 
654 
659 



000000 
002300 
114220 
015677 
060345 
015715 
064172 
044133 
006002 
025647 
129643 



ENOUT 



SPACE FOR A CCMMA ** 



0345 
0346 
0347 
0348 
0349 
0350 
0351 
0352 
0363 
0364 
0355 
0356 
0357 
0356 
0359 
0360 
0361 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



656 
657 
660 
661 
662 
663 
664 
665 
666 
667 
670 
671 
672 
673 
674 
675 
676 



000000 
064133 
006003 
125656 
044444 
006021 
025660 
075677 
060345 
015715 
035677 
025666 
064133 
044456 
006021 
015677 
125656 



EDELM 



EDELl 



CCA 


BACKSPACE 


ADA CCNT 


OVER 


STA CCNT 


LAST 


CCA 


CHARACTER IN 


ADA BADDR 


INPUT 


STA BADDR 


BUFFER 


JMP BCKSPrI 




NOP 




CCE 


SET SIGN FLAG TRUE 


J8B NUMOArl 


OUTPUT THE NUMBER 


J8B OUTLN 


END-OF-LINE ACTION 


LDA .32 


OUTPUT 


JSB OUTCR 


A BLANK 


LDB MLBX141 


FIELD 


ADB CCNT 




8ZB 


FULL? 


JMP *-5 


NO 


JMP ENOUTrl 




** 




NOP 




LDB CCNT 


NOr LOAD CHARACTER COUNT 


SZB,RS8 


ZERO? 


JMP EDELMrl 


YES 


ADB H19 


NO, SUBTRACT ZONE NIDTH 


SSBfRSS 


NEGATIVE RESULT? 


JMP EDELl 


NO 


STB OUTLN 


YES, SAVE BLANK COUNT 


LDA .32 


FETCH BLANK 


JSB OUTCR 


OUTPUT 


ISZ OUTLN 




JMP *-3 


BLANKS 


LDB CCNT 


LINE 


ADB M76 




SSBrRSS 


FULL? 


JSB OUTLN 


YES 


JMP EDELMrl 





PA6E 0039 #02 BASE PAGE SUBROUTINES 



0363** 












0364*** OUTPUT A COHPLETEO UINE •* 




0369** 












0366 


01677 


000000 


OUTLN 


NOP 






0367 


01700 


060146 




LDA 


TYPE 


FETCH 'CHARACTERS PRINTED* COUNT 


0366 


01701 


000010 




SLA 




CORRECT FOR START ON 


0369 


01702 


002004 




INA 




ODD PRINT POSITION 


0370 


01703 


040133 




ADA 


CCNT 


OUTPUT 


0371 


01704 


064131 




LD6 


• BUFA 


A 


0372 


01709 


114102 




JSB 


NRITE^I 


LINE 


0373 


01706 


064172 




LDB 


HLBX141 


CORRECT 


0374 


01707 


044133 




ADB 


CCNT 




0379 


01710 


074172 




STB 


MLBX14-1 


MARKER 


0376 


01711 


002400 




CLA 




RESET COUNT OF 


0377 


01712 


070146 




8TA 


TYPE 


CHARACTERS PRINTED 


0378 


01713 


114290 




JSB 


PRNlArl 


CLEAN UP 


0379 


01714 


125677 




JMP 


OUTLNrI 




0360** 












0381*** ADO A CHARACTER ' 


rO OUTPUT BUFFER ** 


0382** 












0363 


01719 


000000 


OUTCR 


NOP 




CHARACTER IN (A) 


0384 


01716 


071364 




STA 


IFIX 


SAVE CHARACTER 


0369 


01717 


034133 




I8Z 


CCNT 


COUNT IT 


0386 


01720 


064133 




LOB 


CCNT 


FIRST CHARACTER 


0367 


01721 


004010 




8L8 




OF BUFFER WORD? 


0388 


01722 


034132 




ISZ 


BADOR 


YES, MOVE TO FRESH WORD 


0389 


01723 


160132 




LDA 


BADDRrI 


LOAD BUFFER MORO 


0390 


01724 


004010 




SLB 




SAVE 


0391 


01729 


001727 




ALF, 


*ALF 


OTHER 


0392 


01726 


010460 




AND 


M296 


CHARACTER 


0393 


01727 


031364 




lOR 


IFIX 


ADD NEW CHARACTER 


0394 


01730 


004010 




SLB 




POSITION 


0395 


01731 


001727 




ALFi 


>ALF 


MORD AND 


0396 


01732 


170132 




STA 


BADDRrI 


STORE IT 


0397 

9>rv8* 

0399* 


01733 


125719 




JMP 


OUTCRf I 
















0400 


00160 




TEf«P 


EQU 


TEMPS+l 




0401 


00161 




TEfPl 


EQU 


TEMP8*2 




0402 


00162 




TEHP2 


EQU 


TEMPa*3 




0403 


00163 




TEHP3 


EQU 


TEMPS+4 




0404 


00164 




TEfP4 


EQU 


TEMP8*9 




0406 


00169 




COl/NT 


EQU 


TEMP8+6 




0406 


00163 




8TEMP 


EQU 


TEMPS+4 




0407 


01274 




MAKTl 


EQU 


8YMCK 




0408 


01336 




MAKT2 


EQU 


MDIM 




0409 


01603 




EXPON 


EQU 


LETCK 




0410 


01633 




OPPLG 


EQU 


BCKSP 




0411 


01719 




ARYAO 


EQU 


OUTCR 




0412 


00967 




EOL 


EQU 


CONST 




0413 


01734 




FIKBP 


EQU 


* 


FIRST UNUSED WORD OF BASE PAGE 



BASIC INTERPRETER CONTROL 
CHECK SYNTAX AND TRANSLITERATE 
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0415* 

0416** 

0417* 

0418* 

0419* 

0420* 

0421* 

0422* 

0423* 

0424 

0425* 

0426* 

0427* 

0426 

0429 

0490 

0431 

0432 

0433 

0434 

0435* 

0436 

0437 

0438 

0439 

0440 

0441 

0442 

0443 

0444* 

0445 

0446 

0447 

0448 

0449 

0450 

0451 

0452* 

0453 

0454 

0455 

0456 

0457 

0458 

0459 

0460 

0461 

0462 

0463* 

0464 

0465 

0466 

0467 

0466 



BASIC INTERPRETER CONTROL 



THIS PROGRAM INTERPRETS THE SYSTEM COMMANDS AND PROVIDES 
I/O CONTROL FOR THE BASIC INTERPRETER. ALL USER 
COMMUNICATION IS DONE THRU THIS PR08RAH. USER RESPONSES 
CHECKEO FOR SYSTEM COMMANDS AND IF A VALID COMMAND 18 
DETECTED THIS PROQRAM INITIATES APPROPRIATE ACTION. 

12000 ORG 2000B 

DATA LOCAL TO MONITOR 



ARE 



02000 
02001 
02003 

02004 
02005 
02006 

02007 

02010 
02011 
02012 
02013 
02014 
02015 
02016 
02017 

02020 

• 2021 
02022 

02023 
02024 

02025 
02026 

02027 
02030 
02031 
02032 
02033 
02034 
02035 
02036 
02037 
02040 

02041 
02042 
02043 
02044 
02^45 



002001 
051105 
054415 
000407 
000465 
003776 
002146 

107700 
102100 
060106 
0501U 
026020 
070111 
002004 
070117 

060110 
070112 
070113 
060345 
070476 
002400 
070145 

06^130 
070127 
002400 
072121 
070136 
07»137 
114102 
060436 
066000 
114102 

060130 
070127 
060136 
002002 
026161 



ROYA DEF 
READY ASC 
OCT 
LFEED DEF 
QMRKA DEF 
STCPA DEF 
CMNDA DEF 



READY 

2, READ 

54415 

LF 

OMARK 

STCMO 

CMNDS 



ENTRY CLC 9,C 
STF 

LDA LMBM 

CPA LNAM 

JMP FLUSH 

STA LNAM 

INA 

STA SYMTA 

FLLSH LDA FNAN 
STA PBUFF 
STA P8PTR 
LDA .32 
STA BLANK 
CLA 
STA .LNUM 

RDYPT LDA TL8TR 

STA LISTR 
CLA 

STA DR08T 

STA TFLAO 

8TA TTYFL 

J8B WRITErl 

LDA M6 

LDB RDYA 

J8B MRITErl 

PEXMK LDA TLSTR 

STA LISTR 

LDA TFLAO 
SZA 

JMP PTAPE*1 



8TARTIN6 POINT, TURN OFF ALL I/O 
TURN ON INTERRUPT SYSTEM 
LOADED 

BY 'BOSS'? 
NO 
YES, RESET 

POINTER 
VALUES 



SET PROORAM BUFFER ADDRESS 
SET PROQRAM BUFFER POINTER 
INITIALIZE 

DELETE CHARACTER FOR GETCR 
SET LINE NUMBER 

TO INITIALLY 

SET TO 

COMMAND MODE 

CLEAR DATA REQUEST FLAG 
CLEAR PHOTO READER INPUT FLAG 
CLEAR TTY TAPE FLAG 
DO A RETURN AND LINE FEED. 



PRINT "READY" ON TTY 

SHIFT TO 

COMMAND MODE 

IS TAPE FLAG SET? 

YES, GET RECORD FROM PHOTO ROR 



PAGE i84l «e2 BASIC INTCPRETER CONTROL 



0470 


02046 


066004 


DA1AI LDi 


LFEEO 


0471 


02047 


074152 


STB 


R8YM 


0472 


02050 


060137 


LOA 


TTYFL 


0473 


02061 


002002 


8ZA 




0474 


02052 


026056 


JMP 


6TRC0 


0476 


02053 


003400 


CCA 




0476 


02054 


064152 


LDB 


RSYM 


0477 


02055 


114102 


J8B 


WRITErl 


047S* 










0479 


02056 


U4123 


8TRCD J8B 


IMOFF,] 


0460 


02057 


060366 


LOA 


.72 


0481 


02060 


064131 


LDB 


• BUFA 


0462 


02061 


114104 


J8B 


REED. I 


0483 


02062 


050432 


CPA 


M2 


0484 


02063 


026115 


JMP 


RBOUT 


0465* 










0466 


02064 


003021 


RPRCS CHA, 


rSSA.RSS 


0467 


02065 


014477 


JSB 


ERROR 


0468 


02066 


070133 


RTLE STA 


CCNT 


0469 


02067 


060131 


LDA 


.BUFA 


0490 


02070 


000066 


CLE, 


»ELA 


0491 


02071 


070132 


STA 


BADOR 


0492 


02072 


015614 


JSB 


6ETCR 


0493 


02073 


026046 


JMP 


OATAl 


0494 


02<974 


066121 


LDB 


DR08T 


0495 


02075 


006003 


SZBi 


rRSS 


0496 


02076 


026126 


JMP 


CKRCD 


0497 


02077 


050372 


CPA 


8 


0496 


02100 


016200 


JSB 


STOP 


0499 


02101 


002400 


CLA 




0500 


02102 


114102 


JSB 


WRITErl 


0501 


02103 


015633 


JSB 


BCK8P 


0502 


02104 


060426 


LDA 


RMODE 


0503 


02105 


070127 


STA 


LISTR 


0504 


02106 


066121 


LDB 


DRQST 


0505 


02107 


002400 


CLA 




0506 


02110 


072121 


STA 


DRQST 


0507 


02111 


114124 


JSB 


IMON.I 


0508 


02112 


124001 


JMP 


If 1 


0509* 










0510 


02113 


056040 


ASC 


l.\ 


0511 


02114 


002113 


DEF 


♦ •I 


0512 


02115 


066114 


RBCUT LDB 


• -1 


0513 


02116 


002404 


CLA, 


rINA 


0514 


02117 


114102 


JSB 


MRITErl 


0515 


02120 


026056 


JMP 


OTRCD 


0516* 










0517* 


THIS 


SECTION 


REQUESTS DATA INP 


0518* 










0519 


02121 


000000 


0R6ST NOP 




0520 


02122 


064130 


LDB 


TLSTR 


0521 


02123 


074127 


STB 


LISTR 


0522 


02124 


066005 


LOB 


QMRKA 


0523 


02125 


026047 


JMP 


DATAI^l 



LOAD ADDRESS OF LINE FEED 
STORE ADDRESS OF READY SYMBOL 
TTY TAPE 
INPUT? 
YES, SUPPRESS LINE FEED 
NO 

LOAD LF OR •?• ADDRESS 
PRINT LF OR ♦?•, NO CR-LF 

TURN OFF KEYBOARD INTERRUPT MODE 



BET RECORD FROM TTY 

RUBOUT IN RECORDr INPUT AGAIN 

SET A — 1-# CHARS AND CHECK FOR 

RECORD TOO LONG 

-1-(K CHARACTERS < BrSET CCNT 

LOAD BUFFER ADDRESS 

SHIFT LEFT, LEAST BIT USED AS 

ODD/EVEN FLAG 
FETCH FIRST CHARACTER 
NULL RECORD, INPUT AGAIN 

DATA REQUEST? 

NO DATA REQUEST, 00 CHECK RECORD 

ASCII 8 FIRST CHARACTER? 

ASSUME STOP REQUESTED 

LINE 

FEED 
BACKSPACE 
RETURN TO 

RUN MODE 



CLEAR DATA REQUEST FLAG 

DATA REQUEST, TURN ON INTRPT MODE 

60 TO DATA REQUEST CALLING POINT 



OUTPUT 'V WITH 
CARRIAGE RETURN 
AND LINE FEED 



EXIT/ENTRY AND FLAG 
SHIFT TO 

COMMAND MODE 

PRINT •?• AND WAIT 



PA8E B042 »02 BASIC INTEPRETER CONTROL 



0525* 














0526* 


THIS 


SECTION 


CHECKS RECORD FOR 


SYSTEM COHHANDS. 


0627* 














0528 


02126 


064134 


CKRCO 


LDB 


8BUFA 




0520 


02127 


074135 




STB 


8BPTR 


INITIALIZE SYNTAX BUFFER POINTER 


0530 


02130 


170135 




STA 


8BPTK,I 


PUT FIRST CHAR IN SYNTAX BUFFEK 


0591 


02131 


015603 




J8B 


tETCK 


IS CHARACTER A LETTER 


0532 


02132 


026220 




JHP 


8YNTX 


NOr TRY SYNTAX 


0533* 














0534 


02133 


060306 




IDA 


TBLAD 


LOAD SYS CMND TABLE START POINT 


0535 


02194 


064440 




LDB 


M8 


LOOK FOR A 


0536 


02135 


114212 




J8B 


TSRCH^I 


SYSTEH COHHANO 


0537 


02136 


014477 




J8B 


ERROR 


NOT A VALID COMMAND 


0538* 














0539 


02137 




INVSC 


EOU 


« 


INVALID CMND ERROR REFERENCE 


0540* 














0541 


02137 


001727 




ALF, 


rALF 


ENTRY FOUND 


0542 


02140 


001100 




AR8 




MOVE JHP ADDR TO LEAST BITS POS. 


0543 


02141 


042007 




ADA 


CHNDA 


ADD START ADDR. OF CMND ROUTINES 


0544 


02142 


072200 




STA 


STOP 


SAVE (A) 


0545 


02143 


002400 




CLA 




OUTPUT 


0546 


02144 


114102 




JSB 


WRITErl 


A CR-LF 


0547 


02145 


126200 




JHP 


STOP, I 


EXECUTE COMMAND 
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0549* 

0590* 

0851* 

0592 

0593* 

0594 

0995 

0566* 

0557 

0558* 

0559 

0560 

0561* 

0562 

0563 

0564 

0569 

0966 

0967* 

0968 

0969 

0970 

0971 

0972 

0573 

0574 

0979 

0976 

0577 

0578 

0979 

0580* 

0981 

0982 

0983 

0984 

0989* 

0586* 

0987* 

0988 

0589 

0990 

0991 

0992 

0993 

0994 

0999 

0996 

0997 

0996 

0999 



THIS SETS UP ANB EXECUTES THE SYSTEM COMMANDS 



02146 

02146 
02147 



CMKOS EQU * 



114124 
124202 



RUN 



J8B 

JHP 



1M0N»I 
RUNA#I 



02190 026020 SCRTH JHP ft#8H 



02191 
02192 

02193 
02194 
02195 
02196 
02157 

02160 
02161 
02162 
02163 
02164 
02165 
02166 
02167 
02170 
02171 
02172 
02173 



060130 
006401 

060126 
070127 
074136 
114124 
124207 

114124 
060366 
064131 
114101 

050432 
026174 
050433 
014477 

002003 
026161 
070136 
026064 



02174 064136 

02175 006003 

02176 026161 

02177 026027 



TLI8T LOA TL8TR 
CLBfRSS 

PLIST LDA PL8TR 
ST A LISTR 
STB TFLA8 
J8B IHON,I 
JHP LISTA^I 

PTAPE J8B IM0N#I 
LDA .72 
LOB .BUFA 
JSB PREADfl 
CPA M2 
JMP EOTR 
CPA M3 
JSB ERROR 

PRERR SZAfRSS 

JMP PTAPE*! 
8TA TFLAS 
JMP RPRCS 

EOTR LDB TFLAQ 
SZBrRSS 
JMP PTAPE*1 
JMP RDyPT 



STOP COMMAND SERVICE 



02200 
022141 
02202 

02203 
02204 
02205 
02206 
02207 
02210 
02211 
02212 
02213 



000000 
114123 
064130 
074127 
060470 
002006 
026205 
114102 
060327 
066006 
114102 
026027 



STOP 



NOP 

JSB 

LDB 

STB 

LDA 

INA, 

JMP 

JSB 

LOA 

LDB 

JSB 

JMP 



IMOFFfl 

TLSTR 

LISTR 

MNE6 

SZA 

*-l 

WRITErl 

.4 

STOPA 

MRITErl 

RDYPT 



COMMAND LIST REFERENCE 

TURN ON TTY INTERRUPT MODE 
80 TO RUN ENTRY POINT 

SCRATCH CURRENT PROSRAM 

LIST PROQRAMf TFLA6 - 



PUNCH PROORAMr TFLA6 « 

SET DRIVER ADDRESS 

SET DEVICE FLAG 

TURN ON TTY INTERRUPT MODE 

00 TO LIST ENTRY POINT 

PTAPE COMMAND 



BET RECORD FROM PHOTO READER 

END OF TAPE? 

YES, GO SEE IF START OR END 

PHOTO READER READY? 

NO 

YES 

NULL RECORD 

SET FLAB # 

80 PROCESS RECORD 



START OR END OF TAPE? 

START 

GO TO READY POINT 



TURN OFF KEYBOARD INTERRUPT MODE 
SHIFT TO 

COMMAND MODE 



DELAY FOR 100 MILLISECONDS 
CARRIAGE-RETURN LINE-FEED 



PRINT "STOP" 
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0601* 

0602** SET LINE FEED SUPPRESSION 

0603* 

0604 02214 078137 TAPE STA TTYFL SET TO »TAPE' MODE 

0605 02215 026056 JHP QTRCD 
0606* 

0607** RETURN TO 'BOSS* EXECUTIVE 
0606* 

0609 02216 002400 BYEC CLA 

0610 02217 024077 JMP 77B 



PACE 0045 #03 CHECK SYNTAX AND TRANSLITERATE 



0002* 

0003* **i 

0004**** 

0005*** 

0006**** 

0007* **' 

0006* 

0009** 

0010*** 

0011** 



CHECK SYNTAX CF 



**• 

STATEMENT *** 

• ** 



OETERHINE SEOIENCE NUHBER ** 



0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019** 

0020*** 

0021** 



02220 

02221 
02222 
02223 
02224 

02225 
02226 



114216 

000463 
034135 
074145 
064134 
006004 
074160 



SYNTX 



J8B 
DEF 
I8Z 
STB 
LDB 
INB 
STB 



INCHKrI 

MAXSN 

SBPTR 

.LNUH 

8BUFA 

TEMP 



DETERMINE STATEMENT TYPE ♦* 



0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046** 

0047*** 

0048** 



02227 
02230 

02231 
02232 

02233 
02234 

02235 
02236 

02237 
02240 
02241 
02242 
02243 
02244 
02245 
02246 
02247 
02250 
02251 
02252 
02253 
02254 
02255 
02256 



050334 

124253 
170135 
060307 
064446 
114212 
014477 
064441 
076330 
064113 
054112 
002001 
026247 
064110 
074112 
074113 
074157 
006400 
076332 
076334 
001727 
001300 
040302 
124000 



SYKEl 



SYMl 



CPA 
JMP 
8TA 
LDA 
LDB 
JSB 
JSB 
LDB 
STB 
LDB 
CP8 
RS8 
JMP 
LDB 
STB 
STB 
STB 
CLB 
STB 
STB 



.10 

DEL8T>I 

SBPTR, I 

STTYP 

M21 

TSRCHrl 

ERROR 

M9 

MSFL6 

PBPTR 

PBUFF 

SYNTl 

FMAM 

PBUFF 

PBPTR 

TEMPS 



OFLAQ 
PFLA0 

ALF,ALF 

RAR 

ADA STBA8 

JMP 0fl 



RECORD 

SEQUENCE NUMBER 
SAVE SPACE FOR LEN6TH WORO 
SAVE LINE NUMBER 
SET 

TEMP TO 

(SBUFF)*! 



NULL STATEMENT? 

YESr DELETE IT 

N0» RECORD NEXT CHARACTER 

PRINT-TABLE ADDRESS 

.(NUMBER OF ENTRIES) 

FIND STATEMENT TYPE 

NOT FOUND 

SET MULTIPLE STORE 

TO FALSE 
NULL 

PROGRAM? 
YES 
NO 
INSURE NO 

SPURIOUS COMMON 
EXISTS 
SET S-STACK POINTER 
SET DEFINE FLAG 

TO FALSE 
SET PARAMETER FLAG TO FALSE 
COMPUTE 

ADDRESS OF 

SYNTAX ROUTINE AND 
BRANCH TO IT 



0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 



02297 
02260 
02261 
02262 
02263 
02264 
02265 
02266 
02267 



SINGLE CHARACTER AND/OR FORMULA OPERATORS *• 

BITS 15-9 OF THE LABELLED WORD 
ARE THE BASIC CODE OPERATOR 
NUMBERS. BITS 3-0 ARE THE 
OPERATOR'S HIERARCHICAL 
RBRAC OCT 6001 PRECEDENCE FOR THOSE OPERATORS 



001000 
021040 
002000 
026040 
003000 
035440 
004001 
024440 
005001 



QUOTE 
COf'MA 



SMCLN 



RPARN 



OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 



1000 

If* 

2000 

3000 

lr7 

4001 

If) 

6001 



PASE 0046 #03 CHECK SYNTAX AND TRANSLITERATE 



0056 

0099 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0066 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

9977 

0076 

0079 

0060 

0081 

0062 

0063 

0064 

0089 

0066 

0067 

0066 

0069 

0090 

0091 

0092 

0093 

0094 

0099 

0096 

0097 

0096« 

0099* 

0100* 

0101* 

0102* 

0103 

0104 

0105 

0106 

0107 

0106 

0109 

0110* 

0111* 

0112* 

0113 



02270 
02271 
02272 
02273 
02274 
0227S 
02276 
02277 
02300 
02301 
02302 
02303 
02304 
02305 
02306 
02307 
02310 
02311 
02312 
02313 
02314 
02315 
02316 
02317 
02320 
02321 
02322 
02323 
02324 
02325 
02326 
02327 
02330 
02331 
02332 
02333 
02334 
02335 
02336 
02337 



056440 
006002 
026040 
007002 
036440 
010007 
025440 
011007 
026440 
012010 
025040 
013010 
027440 

014012 
057040 

019005 
037040 
016005 
036040 
017005 
021440 
020005 
036440 
021011 
026440 
022020 
095440 
023020 
024040 
024011 
029440 
025003 
000000 
026004 
000000 
027011 

000000 
030005 
000000 
031005 



SCrHA 

ASSOP 

PLCS 

NI^US 

TirES 

DIV 

EXP8 

SIR 

LSS 

UNEQL 

EQUAL 

UNt'IN 

LBRAC 

LPARN 

UPLUS 

ORCP 

MSFL6 

ANCOP 

DFLA6 

NOTOP 

PFLAG 

STREQ 

UPLA8 

LSSEQ 



ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
NOP 
OCT 
NOP 
OCT 
NOP 
OCT 
NOP 
OCT 



1.) 
6002 

1/r 

7002 

U- 

10007 

11007 

Ir- 

12010 

Ir* 
13010 

If/ 
14012 
If^ 
15005 

lr> 
16005 

lf< 
17005 

lr# 
20009 

If* 
21011 

Ir- 
22020 

1ft 
23020 

lr( 
24011 

If* 

25003 

26004 
27011 

30005 
31005 



** *** 

* LET STATEMENT SYNTAX ** 

** *** 



02340 077530 

02341 060440 

02342 072330 

02343 017114 

02344 057530 

02345 014477 
02346 

* 

*« 

* 

02346 050334 



LETS STB SFLAQ 
LDA H8 
STA hSFLS 
J8B FSC 
CPB SFLAe 
J8B ERROR 

SYKE2 EOU * 



BELONOINB TO FORMULAS. THE 
UNLABCLLED WORD GIVES THE 
ASCI! REPRESENTATION OF THE 
SINSLE CHARACTER OPERATORS. 



SET 'NO STORE* FLAG ( (B) ■ ) 
SET MULTIPLE STORE FLAG 

TO TRUE 
FETCH FORMULA 

DID STORE OCCUR? ( (B>*0 ) 
NO 



CHECK FOR EhD OF STATEMENT •* 



E08T CPA .10 



END-OF-STATEMENT? 
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0U4 02347 124252 JMP ACCST^I YESr ACCEPT STATEMENT 
0119 02390 024266 JNP NOEOf-' NO^ ILLEGAL CHARACTER 
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0117* 

0U8* 

0119* 

0120* 

0121* 

0122 

0123 

0124 

0125 

0126* 

0127* 

0128* 

0129* 

0130* 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146* 

0147* 

0148* 

0149* 

0150* 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 



** 
* 
• * 



DIM 



• ** 

STATEMENT SYNTAX ** 

• ** 



02351 
02392 
02353 
02354 

** 

* COM 

** 

02355 
02356 
02357 
02360 
02361 
02362 
02363 
02364 
02369 
02366 
02367 
02370 
02371 
02372 
02373 

** 

* DEF 

** 

02374 

02379 
02376 
02377 
02400 
02401 
02402 
02403 
02404 
02435 
02406 
02407 
02410 
02411 
02412 
02413 
02414 
02415 
02416 
02417 
02420 
02421 



036332 
017530 
124292 
026352 



DII*S 



ISZ 
JSB 
JMP 
JMP 



0FLA8 
ARRY8 
ACCST^I 
DIMS4>1 



*** 
STATEMENT SYNTAX ** 



064113 
054110 
002001 
014477 
074166 
036332 
003400 
072334 
017930 
002001 
026363 
064166 
074112 
074113 
124252 



COhS LDB 
CPB 
RS8 
JSB 

SYKE3 STB 
ISZ 

C0)*S1 CCA 
8TA 
JSB 
RS8 
JMP 
LOB 
STB 
STB 
JMP 



P8PTR 

FMAM 

ERROR 

TEMP8+7 

0FLA6 

PFLAO 
ARRYS 

COMSl 

TEMP8*7 

PBUFF 

PBPTR 

ACCSTrl 



«*« 

STATEMENT SYNTAX ** 

**• 



017639 
026409 
060161 
001727 
030162 
050464 
002001 
026405 
017635 
014477 
060161 
064361 
017650 
060162 
017661 
030470 
170139 
017556 
000000 
014477 
017671 
007400 



DEFS 



8Y^E4 



8YNE5 



JSB 

JMP 
LOA 
ALF 
lOR 
CPA 
RSS 
JMP 
JSB 
JSB 
LOA 
LOB 
JSB 
LOA 
JSB 
lOR 
STA 
JSB 
NOP 
JSB 
JSB 
CCB 



LTR 

8YNE4 
TEMPI 
,ALF 
TEMP2 
FN 

SYNE4 

LTR 

ERROR 

TEMPI 

.98 

STROP 

TEMP2 

LPCK 

FL8BT 

SBPTRrI 

VAROP 

ERROR 
RPCK 



SET DFLAB TO TRUE 

CHECK AN ARRAY 

DONE 

MAS A COMMAr CONTINUE 



HAS PROGRAM BUFFER 

BEEN MOVED? 
NO 

YESr ILLEGAL COM 
BET ARRAY POINTER 
SET DEFINE FLAG TO TRUE 
SET COMMON FLAG 

TO TRUE 
CHECK AN ARRAY 
DONE 

MORE ARRAYS 
FETCH UPDATED POINTER 
SET PROGRAM BUFFER ADDRESS 
SET PROGRAM BUFFER POINTER 
EXIT 



FIRST 

TMO CHARACTERS 

•FN'T 

YES 

NO 

LETTER FOLLOWS? 

NO 

YES, RECORD A 

FUNCTION 
NAME 
RETRIEVE CHARACTER 
LEFT PARENTHESIS? 
YES, SET FORMAL 

PARAMETER BIT 
FETCH SIMPLE VARIABLE 
NONE FOUND 

SUBSCRIPTED VARIABLE FOUND 
RECORD A RIGHT PARENTHESIS 
ASSIGNMENT 
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0173 02422 


015274 




JSB 8YMCK 




0174 02423 


002272 




DEF ASS0P*1 


OPERATOR? 


0179 02424 


014477 


8YNE6 


JSB ERROR 


NO 


0176 02425 


060432 




LDA M2 


YESr 


0177 02426 


040135 




ADA SBPTR 


RETRIEVE 


0178 02427 


160000 




LDA 0rl 


PARAMETER 


0179 02430 


010401 




AND MSKl 


AND 


0180 02431 


072334 




8TA PFLAO 


SAVE IT 


0181 02432 


017114 




JSB FSC 


FETCH DEFINING FORMULA 


0182 02433 


026346 




JNP EOST 


END-OF-STATEMENT TEST 


0183* 










0184*** 






• •* 




0185** REM 


STATEMENT SYNTAX •• 




0186*** 






• •• 




0187* 










0188 02434 


060334 


RErts 


LDA .10 


DUMMY STRING TERMINATOR 


0189 02435 


114251 




JSB CHRSA^I 


FETCH CHARACTER STRING 


0190 02436 


124252 




JMP ACCST^I 




0191* 










0192*** 






• ** 




0193** IF ! 


STATEMENT SYNTAX •• 




0194*** 






*•* 




0195* 










0196 02437 


017114 


IF6 


JSB FSC 


BET DECISION FORMULA 


0197 02440 


170135 




STA SBPTRrI 


TABLE 


0196 02441 


060316 




LDA ATHEN 


SEARCH 


0199 02442 


007400 




CCB 


FOR 


0200 02443 


114212 




JSB TSRCH^I 


•THEN* 


0201 02444 


014477 




JSB ERROR 


NOT FOUND 


0202 02445 




8YKE7 


EOU * 


GET STATEMENT LABEL NUMBER 


0203* 










0204*** 








• ** 


0205** 60 TO AND GOSUB STATEMENT SYNTAX •* 


0206*** 








*** 


0207 02445 


114221 


eOTOS 


JSB PSINTrl 


FETCH AND RECORD 


0208 02446 


000463 




DEF MAXSN 


SEQUENCE NUMBER 


0209 02447 


026346 




JMP EOST 


END-OF-STATEMENT TEST 


0210* 










0211* 










0212*** 






• ** 




0213** FOR 


STATEMENT SYNTAX •• 




0214*** 






«*• 




0215* 










0216 02450 


017556 


FORS 


JSB VAROP 


FETCH SIMPLE VARIABLE 


0217 02451 


000000 




NOP 


NONE FOUND 


0216 02452 


014477 


SY^ES 


JSB ERROR 


SUBSCRIPTED VARIABLE FOUND 


0219 02453 


007400 




CCB 




0220 02454 


015274 




JSB SYMCK 


ASSleNMENT 


0221 02455 


002272 




DEF AS80P-1 


OPERATOR? 


0222 02456 


026424 




JMP SYNE6 


NO 


0223 02457 


017U4 




JSB FSC 


YES, FETCH INITIAL VALUE FORMULA 


0224 02460 


170135 




STA SBPTR, I 


LOOK 


0225 02461 


060317 




LDA ATO 


FOR 


0226 02462 


007400 




CCB 


THE 


0227 02463 


114212 




JSB TSRCHfl 


•TO' 


0228 02464 


014477 




JSB ERROR 


MISSING 
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0229 
0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242* 

0243* 

0244* 

0245* 

0246* 

0247 

0248 

0249 

0250 

0251* 

0252* 

0253* 

0254* 

0255* 

0256 

0257 

0256 

0259 

0260* 

0261* 

0262* 

0263* 

0264* 

0265 

0266 

0267* 

0266* 

0269* 

0270* 

0271* 

0272 

0273 

0274 

0275 

0276 

0277 

0276 

0279 

0280 

0281 

0282 

0283 

0284 



02466 
02466 
02467 
02470 
02471 
02472 
02473 
02474 
02475 
02476 
02477 
02500 
02501 



0171U 
060334 
124252 
007400 
044135 
074135 
170135 
060320 
007400 
114212 
014477 
017114 
026346 



SYNE9 J8B 
CPA 
JMP 
CCB 
ADB 
STB 
STA 
LDA 
CCB 
JSB 
JSB 

SYEIB JSB 
JMP 



F8C 
.10 
ACCSTrl 

SBPTR 
SBPTH 
SBPTR,! 
ASTEP 

T8RCH»I 
ERROR 
F8C 
EOST 



BET LIMIT FORMULA 
END-OF-STATEMENT? 
YES 

NO, ERASE 
ZERO 
WORD 
NOW 
LOOK 
FOR 

THE 'STEP* 
MISSING 

SET STEP SIZE FORMULA 
END-OF-STATEMENT TEST 



** **• 

* NEXT STATEMENT SYNTAX ** 

** **« 

02502 017556 NXTS JSB VAROP 

02503 000000 NOP 

02504 026452 JMP SYNE8 

02505 026346 JMP EOST 



FETCH SIMPLE VARIABLE 
NONE FOUND 

SUBSCRIPTED VARIABLE FOUND 
END-OF-STATEMENT TEST 



** *** 

* ENDf STOP, RESTORE, RETURN STATEMENT SYNTAX ** 

• * *** 



02506 034135 

02507 015614 

02510 124252 

02511 024266 



ENCS 



ISZ SBPTR 
JSB GCTCR 
JMP ACCST,! 
JMP NOEOF 



END-OF-STATEMENT? 

YES 

NO 



** 



**« 



* niAIT STATEMENT SYNTAX *• 

** *•* 

02512 017734 NAITS JSB 6ETPF 

02513 026346 JMP EOST 

** **« 

* CALL STATEMENT SYNTAX *• 

** 



END-OF-STATEMENT TEST 



02514 
02515 
02516 
02517 
02520 
02521 
02522 
02523 
02524 
02525 
02526 
02527 
02530 



015614 
024265 
034135 
017661 
114221 
000453 
070161 
015323 
160001 
001727 
010344 
003000 
070166 



CALLS 



*** 

JSB GETCR 
JMP EOF 
ISZ SBPTR 
JSB LPCK 
JSB POINT, I 
OEF D1B0 
STA TEMPI 
JSB FNOSB 
LDA 1,1 
ALF,ALF 
AND .31 
CMA 
STA TEMPS»7 



FETCH AND 
RECORD 
LEFT 

PARENTHESIS 
FETCH AND RECORD 

SUBROUTINE NUMBER 
SAVE NEXT CHARACTER 
FIND 
NUMBER 
OF 

PARAMETERS 
RECORD 

COMPLEMENT - 1 
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0286 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299* 

0300« 

0301* 

0302* 

0303* 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312* 

0313* 

0314* 

0315* 

0316* 

0317 

0316 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329* 

0330* 

0331* 

0332* 

0333* 

0334 

0335 

0336 

0337 

0338 

0339 

0340 



02531 
02532 
02533 
02934 
02536 
02536 
B2537 
02540 
02541 
02542 
02S43 
02544 
02545 
02546 



060161 
007400 
015274 
002260 
026543 
034166 
002001 
014477 
017114 
026532 
034166 
026540 
017671 
026346 



CALL2 



8YE11 



CALL.3 



LOA 
CCS 
JSB 
DEF 
J MP 
131 
RS8 
JS8 
JSB 
JHP 
ISZ 
JHP 
JSB 
JMP 



TEMPI 

8YMCK 
COMMA-1 
CALLS 
TEMP8*7 

ERROR 

F8C 

CALL2 

TEMP8*7 

BYEll 

RPCK 

E08T 



** *** 

* PATA STATEMENT SYNTAX •* 

*** 



02547 014567 

02550 024613 

02551 017744 
02952 007400 

02553 015274 

02554 002260 

02555 026346 

02556 026547 

** 



OATAS JSB 
JMP 
JSB 
CCB 
JSB 
DEF 
JMP 
JMP 



CONST 

SYE12-1 

NUMOP 

8YMCK 
COMMA-1 
EOST 
OATAS 



* READ AND INPUT STATEMENT SYNTAX 

** 

02557 017556 READS JSB VAROP 

02560 014477 JSB ERROR 

02561 000000 SYE13 NOP 

02562 007400 CCB 

02563 015274 JSB SYHCK 

02564 002260 DEF COMMA-1 

02565 002001 RSS 

02566 026557 JMP READS 

02567 006400 CLB 

02570 174135 STB 8BPTR,I 

02571 034135 ISZ SBPTR 

02572 026346 JMP EOST 

** •♦• 

* PRINT STATEMENT SYNTAX •• 



02573 064432 

02574 015274 

02575 002260 

02576 026604 
02977 003400 

02600 170160 

02601 034135 



*•* 

PRINl LDB M2 

JSB SYMCK 
DEF COMMA-1 
JMP PRIN2 

PRINS CCA 

8TA TEMP, I 
ISZ SBPTR 



RETRIEVE CHARACTER 

COMMA? 

NO 

YE8, MORE 

PARAMETERS PERMITTED? 
NO 
YES, FETCH 

PARAMETER FORMULA 
ALL PARAMETERS PRESENT? 
NO 

YES, FETCH RIGHT PARENTHESIS 
END-0F-8TATEMENT TEST 



FETCH A CONSTANT 
NONE FOUND 

FIX UP PRECEDINQ OPERATOR 
CHECK 
FOR A 
COMMA 
END-0F-8TATEMENT TEST 
FETCH ANOTHER NUMBER 

• ** 
*• 

• •• 

RECORD VARIABLE OPERAND 
MISSINB 

CHECK 
FOR A 
COMMA 

IS, FETCH NEXT ITEM 
APPEND 

END-OF-FORMULA 
OPERATOR 
END OF STATEMENT TEST 



NO, 

COMMA OR 
SEMICOLON? 
NO 
YES, ENABLE 

FORMULA 
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0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0360 

0391 

0392 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

0388 

0381 

0382 

0383« 

0384« 

0385* 

0386* 

0387* 

0388 

0389 

0390 

0391 

0392 

0393 

0394 

0395 

0396 



02602 
02603 

02604 

02605 

02606 

02607 

02610 

02611 

02612 

02613 

02614 

02615 

02616 

02617 

02620 

02621 

02622 

02623 

02624 

02625 

02626 

02627 

02630 

02631 

02632 

02633 

02634 

02635 

02636 

02637 

02640 

02641 

02642 

02643 

02644 

02645 

02646 

02647 

02650 

02651 

02652 

02653 

*• 

• MAT 

** 

02654 
02655 
02656 
02697 
02660 
02661 
02662 
02663 
02664 



016614 

124252 

007400 

019274 

002256 

026623 

060347 

U4281 

014477 

062267 

170135 

034135 

015614 

124252 

007400 

174160 

026973 

134160 

014477 

170135 

060322 

007400 

114212 

002401 

060424 

007400 

044135 

074135 

002003 

026647 

130136 

170135 

017734 

006400 

174135 

034139 

026691 

015633 

017114 

050334 

124252 

026973 



JSB 
JHP 

PRIN2 COB 
JSB 
DEf 
JHP 
IDA 
JSB 
JSB 

SYE14 LOA 
STA 
I8Z 
JSB 
JHP 
CCB 
STB 
JMP 

PRIN3 ISZ 
JSB 

SYEIS STA 
LOA 
CCB 
JSB 
CLA, 
LOA 
CCB 
AOB 
STB 
SZAr 
JHP 
I OR 
STA 
JSB 
CL6 
STB 
ISZ 
JMP 

PRIN4 JSB 
JSB 

PRIN5 CPA 
JHP 
JHP 



OETCR 
ACCSTrl 

8YHCK 

OUOTE-l 

PRIN3 

.34 

CHRSA,! 

ERROR 

QUOTE 

SBPTRrl 

SBPTR 

6ETCR 

ACCSTrl 

TCHP,I 

PRINl 

TEHP,I 

ERROR 

SBPTR, I 

ATAB 

TSRCHrl 
RSS 

TABCN 

SBPTR 

SBPTR 

RSS 

PR!N4 

SBPTR, I 

SBPTR,! 

GETPF 

SBPTR, I 

SBPTR 

PRIN5 

BCKSP 

F8C 

• 10 

ACC8T,I 

PRINl 



8TATEHENT 8YNTAX •• 

*•• 

017635 HATS JSB LTR 
014477 JtO ERROR 

019603 SYE16 JSB LETCK 
026722 JMP HAT82 
034135 ISZ SBPTR 
064161 LOB TEHPl 
009727 BLF,BLF 
030001 lOR 1 
170135 STA SBPTR, I 



END-0F-8TATEHENT7 
YES 

QUOTE? 

NO 

YES, SET QUOTE AS TERMINATOR 

CHARACTER AND FETCH STRING 
HISSIN8 QUOTE 
RECORD 

QUOTE 

EN0-0F-STATEHENT7 

YES 

ENABLE 

FORMULA 
NO 

TAB OR FORMULA PERMITTED? 
NO 
SEARCH 

FOR 
•TAB' 

NOT FOUND 

BACKUP 

TO WORD WITH 

PREVIOUS OPERATOR 
•TAB' ? 
NO 

YES, RECORD IT 
FETCH PARAMETER 
FOLLOW 
WITH A 
ZERO 

BACKSPACE OVER LAST CHARACTER 

FETCH FORMULA 

ENO-OF-STATEHENT? 

YES 

NO 



FIRST 

TWO CHARACTERS 
LETTERS? 
NO 

YES, HOVE TO FRESH S-BUFFER WORD 
RETRIEVE FIRST LETTER AND 
PUT IT IN THE 

UPPER CHARACTER OF U) 
SEARCH 
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0397 

039a 

9399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0406 

0409 

0410 

0411 

0412 

0413 

0414 

0419 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

0428 

0429 

0430 

0431 

0432 

0433 

0434 

0435 

0436 

0437 

0436 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446 

0447 

0448 

0449 

0450 

0451 

0452 



02669 

02666 

02667 

02670 

02671 

02672 

02673 

02674 

02675 

02676 

02677 

02700 

02701 

02702 

02703 

02704 

02705 

02706 

02707 

02710 

02711 

02712 

02713 

02714 

02715 

02716 

02717 

02720 

02721 

02722 

02723 

02724 

02725 

02726 

02727 

02/30 

02731 

02732 

02733 

02734 

02735 

02736 

02737 

02740 

02741 

02742 

02743 

02744 

02746 

02746 

02747 

02750 

02751 

02752 

02753 

02754 



069310 
064432 
114212 
014477 
090416 
026710 
017544 
090334 
124262 
064432 
015274 
002260 
014477 
019614 
026706 
015633 
026673 
034135 
124252 
017544 
017704 
000000 
050334 
124252 
007400 
015274 
002260 
026701 
026710 
070162 
060135 
071719 
060161 
064359 
017690 
060162 
007400 
015274 
002272 
026424 
161715 
010401 
170160 
017635 
027010 

015603 
027024 
034135 
064161 
005727 
030001 
178135 
060313 
064435 
114212 
014477 



LDA 
LD0 
J8B 
JtB 

8tE17 CFA 
JHP 

HATS0 JSB 
CPA 
JMP 
t.D0 
JSB 
OEF 
J86 

8YE18 JSB 
JMP 
JSB 
JMP 
ISZ 
JHP 

MAT81 JSB 
JSB 
NOP 
CPA 
JMP 
CCB 
JSB 
DEF 
JMP 
JMP 

MATS2 8TA 
LDA 
8TA 
LDA 
LOB 
JSB 
LDA 
CCB 
JSB 
OEF 
JMP 
LDA 
AND 
STA 
JSB 
JMP 
JSB 
JMP 
ISZ 
LOB 
BLFr 
lOR 
STA 
LDA 
LOB 
JSB 
JSB 



MATIO 

M2 

TBRCHrl 

ERROR 

RDOP 

MATS! 

ARRID 

.10 

ACCST,! 

M2 

8YMCK 

COHMA-1 

ERROR 

GETCR 

• ♦3 

BCKSP 

MAT30 

S6PTR 

ACCST,! 

ARRIO 

MATSB 

.10 
ACCSTrl 

SYHCK 

COMNA-1 

SYE18*1 

MATSl 

TfcMP2 

8BPTR 

ARYAD 

TEMPI 

.46 

STROP 

TEMP2 

SYMCK 

ASSOP'l 

SYNE6 

ARYAOrl 

MSKl 

TEMP, I 

LTR 

HATS4 

LETCK 

HATS5 

SBPTR 

TEMPI 

BLF 

1 

SBPTR,! 

MATFN 

M9 

TSRCH,! 

ERROR 



FOR 

•READ* OR 
♦PRINT' 
NOT FOUND 
READ? 
YES 

RECORD ARRAY 
END-0F-8TATEMENT? 
YES 
NO, 

COMMA OR 

SEMICOLON? 
NO 

EN0-0F-8TATEMENT? 
YES 
NO 

INCLUDE 

PARAMETER 
RECORD ARRAY 
IF SUBSCRIPT, 

RECORD IT 
END-0F-8TATEMENTT 
YES 
NO 

COMMA? 

NO 

YES 

SAVE 

OPERAND ADDRESS 
RETRIEVE FIRST LETTER 
RECORD AN 

ARRAY 
RETRIEVE CHARACTER 
ASSIGNMENT 

OPERATOR? 
NO 

YES, RETRIEVE 
AND SAVE 

PREVIOUS ARRAY IDENTIFIER 
LETTER NEXT? 
NO 

YES, SECOND LETTER? 
NO 
YES, 

CONCATENATE 

LETTERS 

AND 

SEARCH 
FOR 
ARRAY 

FUNCTION 
NOT FOUND 
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0453 

0454 
0455 
0456 
0457 
0458 
0459 
0460 
0461 
0462 
0463 
0464 
0465 
0466 
0467 
0468 
0469 
0470 
0471 
0472 
0473 
0474 
0475 
0476 
0477 
0478 
0479 
0480 
0481 
0482 
0483 
0484 
0465 
0486 
0487 
0488 
0489 
0490 
0491 
0492 
0493 
0494 
0495 
0496 
0497 
0498 
0499 
0500 
0501 
0502 
0503 
0504 
0505 
0506 
0507 
0506 



02755 
02756 
02757 
02760 
02761 
02762 
02763 
02764 
02766 
02766 
02767 
02770 
02771 
02772 
02773 
02774 
02775 
02776 
02777 
03000 
03001 
03002 
03003 
03004 
03005 
03006 
03007 

03010 

03011 
03012 
03013 
03014 
03015 
03016 
03017 
03020 
03021 
03022 
03023 
03024 
03025 
03026 
03027 
03030 
03031 
03032 
03033 
03034 
03035 
03036 
03037 
03040 
03041 
03042 
03043 
03044 



001727 
001723 
040336 
007400 
044136 
130001 
030470 
170001 
010401 
040460 
002021 
026776 
015614 
124252 
017704 
014477 
024266 
015614 
024265 
017661 
017544 
017671 
161715 
ei0401 
150160 
014477 
124252 
034135 
017661 
0171U 
017671 
007400 
015274 
002300 
014477 
017544 
050334 
124252 
024266 
070162 
060135 
071715 
060161 
064355 
017650 
060162 
050334 
124252 
064433 
015274 
002274 
014477 
006400 
040332 
052301 
027061 



SYE19 



8YE20 
HAT83 



SYE21 
MA1S4 



SYE22 



MATS5 



SYE23 



ALFr 

ALFr 

ADA 

ceo 

ADO 

lOR 

lOR 

STA 

AND 

ADA 

SSAr 

JHP 

JSB 

JMP 

JSB 

JSB 

JMP 

JSB 

JHP 

JSB 

JSB 

JSB 

LDA 

AND 

CPA 

JSB 

JMP 

ISZ 

JSB 

JSB 

JSB 

CCB 

JSB 

DEF 

JSB 

JSB 

CPA 

JMP 

JHP 

STA 

LOA 

STA 

LDA 

LDB 

JSB 

LDA 

CPA 

JHP 

LDB 

JSB 

DEF 

JSB 

CLB 

ADA 

CPA 

JHP 



ALF 
RAR 
.15 

SBPTR 

Irl 

FL3BT 

UI 

H8K1 

M256 

R8S 

MATS3 

iSETCR 

ACCSTrl 

MATSB 

ERROR 

NOEOF 

GETCN 

EOF 

LPCK 

ARRID 

RPCK 

ARYADr I 

HSKl 

TEMP, I 

ERROK 

ACCSTrl 

SBPTR 

LPCK 

FSC 

RPCK 

8YHCK 

TIHES-I 

ERROR 

ARRID 

.10 

ACCSTrl 

NOEOF 

TEMP2 

SBPTR 

ARYAO 

TEMPI 

.46 

STROP 

TEMP2 

.10 

ACCSTf I 

M3 

8YMCK 

PLUS-l 

ERROR 

.8 

TIMES 

MATS7 



FOUND 
POSITION IT, 

COMPLETE OPERAND, 
COMBINE 
WITH 

OPERATOR, 

ADD FLAG BIT, 
AND STORE 



INV 
OR 



YES 
NO, 
YES 

NO, 
NO 



•TRN? 



END-0F-8TATEMENT? 
SUBSCRIPT? 



SET LEFT PARENTHESIS 
FETCH AND RECORD AN ARRAY 
RECORD A RIGHT PARENTHESIS 
RETRIEVE 

PREVIOUS ARRAY IDENTIFIER 
MATCH LEFT-HAND SIDE ARRAY? 
YES 
NO 

FETCH LEFT PARENTHESIS 
FETCH FORMULA 
FETCH RIGHT PARENTHESIS 
MULTIPLICATION 
OPERATOR? 

NO 

YES, FETCH AND RECORD ARRAY 

END-OF-STATEMENT? 

YES 

NO 

SAVE 

OPERAND ADDRESS 
RETRIEVE 

AND RECORD 
ARRAY 
END-OF- 

statehent? 

YES 

NO, MUST BE 
A •♦'» 



t.« 



OR ••• 



ISN'T 

IS, SET FOR FALSE 

•*•? 

YES 
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03045 076334 NATS6 STB PFLAG NO, SET PFLA8 

03046 017044 JSB ARRIO SET SECOND ARRAY 
03(847 060334 CPA .10 END-OF-STATEMENT? 
030ti0 002001 RSS YES 

03051 024266 JHP NOEOF NO 

03052 036334 ISi PFLA6 WAS OPERATOR A •*•? 

03053 124252 JHP ACCSr,! NO 

03054 161715 LDA ARYAO,! YES, RETRIEVE 

03055 010401 AND H3K1 SECOND ARRAY 

03056 150160 CPA TEMP, I MATCH LEFT-HAND SIDE ARRAY? 
03b)57 014477 SYE24 JSB ERROR YES 

03060 124252 JMP ACCSTrl NO 

03061 161715 MATS7 LDA ARYAD,I RETRIEVE 

03062 010401 AND MSKl ARRAY 

03063 007400 CCB SET FOR TRUE 

03064 150160 CPA TEMP, I MATCH LEFT-HAND SIDE ARRAY? 

03065 027097 JMP SYE24 YES 

03066 027045 JMP MATS6 NO 



* 



JUMP TABLE FOR STATEMENT SYNTAX •• 



0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0517 

0516 

0519 

0520 

0521 

0522 

0523 

0524 

0525 

0526 

0527* 

052B* 

0529* 

0530 

0531 

0532 

0533 

0534 

0535 

0536 

0537 

0536 

0!>39 

0540 

0541 

0542 

0543 

0544 

0545 

0546 

0547 

0548 

0549 

0550 

0551* 

0552*** *** 

0553** FORMULA SYNTAX CHECKER •• 

0554*** *** 

0555* 

0556 03114 000000 FSC NOP 

0557 03U5 002400 CLA 

0558 03116 170157 STA TEMPS, I 

0559 03117 003400 FSCl CCA 

0560 03120 072336 STA UFLA6 

0561 03121 017556 FSC2 JSB VAROP 

0562 03122 027261 JMP FSC9 

0563 03123 027227 JMP FSC6 

0564 03124 015603 JSB LETCK 



03067 

03071 
03072 

03073 
03«)74 
03075 
03076 
03077 
03100 
03101 
03102 
03103 
03104 
03105 
03106 
03107 
03110 
03111 
03112 
03113 



002340 
002351 
002355 
002374 
002434 
002445 
002437 
002450 
002502 
002445 
002506 
002506 
002506 
002512 
002514 
002547 
002557 
002577 
002557 
002506 
002654 



SYNTB DEF 
DEF 
DEF 
OEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
OEF 
DEF 
OEF 
OEF 
DEF 
DEF 
DEF 



LETS 

DIMS 

COMS 

DEFS 

REMS 

60T0S 

IFS 

F0R8 

NXTS 

GOTOS 

ENDS 

ENDS 

ENDS 

WAITS 

CALLS 

DATAS 

READS 

PRINS 

READS 

ENDS 

MATS 



LET 

DIM 

COM 

DEF 

REM 

80 TO 

IF 

FOR 

NEXT 
SOSUB 
RETURN 
END 
STOP 
WAIT 
CALL 
DATA 
READ 
PRINT 
INPUT 
RESTORE 
MAT 



SET LEFT PARENTHESIS 

COUNT TO ZERO 
SET UNARY FLA6 

TO TRUE 
LOOK FOR VARIABLE OPERAND 
NOT FOUND 

SUBSCRIPTED VARIABLE FOUND 
FOLLOWED BY LETTER? 
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0S65 

0S66 

0567 

0566 

0569 

0570 

0671 

0572 

0573 

0574 

0575 

0576 

0577 

0578 

0579 

0580 

0581 

0582 

0583 

0584 

0585 

0586 

0587 

0588 

0589 

0590 

0591 

0592 

0593 

0594 

0595 

0596 

0597 

0598 

0599 

0600 

0601 

0602 

0603 

0604 

0605 

0606 

0607 

0608 

0609 

0610 

0611 

0612 

0613 

0614 

0615 

0616 

0617 

0618 

0619 

0620 



03125 

03126 

03127 

03130 

03131 

03132 

03133 

03134 

03135 

03136 

03137 

03140 

03141 

03142 

03143 

03144 

03145 

03146 

03147 

03150 

03151 

03152 

03153 

03154 

03155 

03156 

03157 

03160 

03161 

03162 

03163 

03164 

03166 

03166 

03167 

03170 

03171 

03172 

03173 

03174 

03176 

03176 

03177 

03200 

03201 

03202 

03203 

03204 

03205 

03206 

03207 

03210 

03211 

03212 

03213 

03214 



027227 
064432 
017322 
060161 
001727 
030162 
050464 
027162 
170135 
060312 
064443 
114212 

027146 
001727 
001723 
030470 
027170 
036336 
027252 
060321 
007400 
114212 
027252 
007400 
044135 
160001 
010420 
170001 
027317 
015614 
026405 
015603 
026405 
040453 
001700 
040336 
070161 
007400 
044135 
160001 
010420 
030161 
170001 
015614 
014477 
017661 
017353 
017114 
017330 
017671 
027272 
064432 
015274 
002264 
027253 
060406 



FSC3 



FSC4 



F8C5 



FSCEl 



F8C7 



JMP F8C6 


NO 


L08 H2 


YES, LOOK FOR 


J8B HCBCK 


•AND' OR 'OR' 


LDA TEMPI 


NOT FOUND, FETCH PREVIOUS 


ALFfALF 


CHARACTER AND LEFT*JUSTIFY IT 


lOR TEHP2 


ADD LATEST CHARACTER 


CPA FN 


'FN'T 


JMP F8C4 


YES 


8TA SBPTRrI 


NO, 


LDA POFNS 


SEARCH FOR 


LOB Mil 


PREDEFINED 


JSB TSRCHrl 


FUNCTION 


JMP F8C3 


NOT FOUND 


ALFrALF 


ASSEMBLE 


ALFyRAR 


OPERAND 


lOR FLOBT 


ADD FLA8 BIT 


JMP F8C5 




I8Z UFLA6 


•NOT' PERMITTED? 


JMP FSC8-1 


NO 


LDA ANOT 


YES, 


CCB 


SEARCH FOR 


JSB TSRCHrl 


'NOT^ 


JMP F8C8-1 


•NOT' NOT FOUND 


CCB 


RETRIEVE 


ADB SBPTR 


PREVIOUS WORD 


LDA 1,1 


WORD 


AND OPMSK 


SET TO 


STA 1»I 


NULL OPERAND 


JMP FSC14 




JSB 6ETCR 


IDENTIFYING 


JMP SVNE4 


FUNCTION 


JSB LETCK 


LETTER? 


JMP SYNE4 


NO 


ADA 0100 


YES, 


ALF 


ASSEMBLE AND 


ADA .15 


SAVE 


STA TEMPI 


FUNCTION IDENTIFIER 


CCB 


RETRIEVE 


AOB SBPTR 


PREVIOUS 


LDA WI 


PROGRAM MORO 


AND OPMSK 


EXTRACT OPERATOR, 


lOR TEMPI 


APPEND OPERAND, 


STA 1,1 


AND RECORD 


JSB 6ETCR 


LEFT PARENTHESIS 


JSB ERROR 


OR 


JSB LPCK 


LEFT BRACKET? 


JSB FRCUR 


YES, SAVE LOCAL VARIABLES OF FSC 


JSB F8C 


FETCH ACTUAL PARAMETER 


JSB FPOP 


RESTORE LOCAL VARIABLES OF FSC 


JSB RPCK 


FETCH RIBHT PARENTHESIS 


JMP FSC104>1 




LOB H2 


CHECK FOR 


JSB 8YMCK 


RIGHT PARENTHESIS 


OEF RPARN-1 


OR RIGHT BRACKET 


JMP FSC8 


NOT FOUND 


LDA B4000 


RECORD A 
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0621 


09215 


170135 




8TA 


SBPTRrI 


RieHT PARENTHESIS 


0622 


03216 


•60352 




LOA 


.41 


RESTORE RI6HT PARENTHESIS 


0623 


03217 


007400 




CCB 




HATCHING 


0624 


03220 


144157 




ADB 


TEMPS, I 


LEFT 


0625 


03221 


006020 




S8B 




PARENTHESIS? 


0626 


03222 


027253 




JMP 


F8C8 


NO 


0627 


03223 


174157 




STB 


TEMPS, I 


YES 


062B 


03224 


034135 




ISZ 


8BPTR 




0629 


03225 


015614 




JSB 


GETCR 


FETCH 


0630 


03226 


060334 




LDA 


.10 


CHARACTER 


0631 


03227 


050334 


FSC6 


CPA 


.10 


END OF FORMULA? 


0632 


03230 


027253 




JMP 


FSC8 


YES 


0633 


03231 


072336 




8TA 


UFLA8 


NO, SET UNARY FLAG TO FALSE 


0634 


03232 


064435 




LOB 


M5 


SEARCH FOR A MULTICHARACTER 


0633 


03233 


017322 




JSB 


MCBCK 


BINARY OPERATOR 


0636 


03234 


160135 




LOA 


SBPTRf I 


NOT FOUND, 


0637 


03235 


001727 




ALF, 


pALF 


RESTORE 


0638 


03236 


010374 




AND 


B177 


CHARACTER 


0639 


03237 


066330 




LOB 


M8FLG 


SEARCH 


0640 


03240 


015274 




J8B 


SYMCK 


FOR A 


0641 


03241 


002274 




DEF 


PLUS-1 


BINARY OPERATOR 


0642 


03242 


002001 




RSS 




NOT FOUND 


0643 


03243 


027301 




JMP 


FSCU 


FOUND 


0644 


03244 


00/400 




CCB 




ASSIGNMENT 


0645 


03245 


015274 




JSB 


SYMCK 




0646 


03246 


002272 




DEF 


A8S0P-1 


OPERATOR? 


0647 


03247 


027210 




JMP 


F8C7 


NO 


0648 


03250 


073530 




8TA 


SFLA6 


YES, SET 


0649 


03251 


027117 




JMP 


F8C1 


•STORE OCCURRED* FLAG 


0650 


03252 


060162 




LOA 


TEMP2 


RETRIEVE LETTER 


0651 


03253 


164157 


FSC8 


LDB 


TEMPS, I 


ALL LEFT PARENTHESES 


0652 


03254 


006002 




8ZB 




MATCHED? 


0653 


03255 


014477 


FSCE2 


JSB 


ERROR 


NO 


0654 


03256 


174135 




STB 


8BPTR,I 


YES, RECORD AN 


0655 


03257 


034135 




ISZ 


8BPTR 


END-OF-FORMULA AND 


0656 


03260 


127114 




JMP 


FSC,I 


EXIT WITH CHARACTER IN (A) 


0657* 














0658 


03261 


050361 


F8C9 


CPA 


.40 


LEFT 


0659 


03262 


027276 




JMP 


FSCU 


PARENTHESIS 


0660 


03263 


050373 




CPA 


B133 


OR LEFT BRACKET? 


0661 


03264 


027275 




JMP 


FSCU 


YES 


0662 


03265 


006400 




CLB 




NO, SET SIGN 


0663 


03266 


074153 




STB 


SIGN 


POSITIVE 


0664 


03267 


014615 




JSB 


NUMCK 


NUMBER? 


0665 


03270 


027304 




JMP 


FSCU 


NO 


0666 


03271 


017744 


FSC10 


JSB 


NUMOP 


YES, FIX UP PRECEDING OPERATOR 


0667 


03272 


064441 




LDB 


M9 


UPDATE 


0668 


03273 


076330 




STB 


MSFLO 


MULTIPLE STORE 


0669 


03274 


027227 




JMP 


FSC6 


FLAG 


0670 


03275 


034195 


FSCU 


ISZ 


8BPTR 


YES 


0671 


03276 


060413 




LDA 


B2900 


RECORD 


0672 


03277 


170136 




8TA 


8BPTR,I 


IT AND 


0673 


03300 


194157 




ISZ 


TEMPS, I 


COUNT IT 


0674 


03301 


064441 


FSC12 


LDB 


M9 


UPDATE 


0675 


03302 


076330 




STB 


M8FL8 


MULTIPLE STORE FLAG 


0676 


03303 


027117 




JMP 


FSCl 


FLAG 
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0677 

0676 

0679 

0660 

0661 

0682 

0663 

0664 

0669 

0666 

0667 

0666 

0669 

0690 

0691* 

0692* 

0693* 

0694 

0695 

0696 

0697 

0696 

0699 

0001* 

0002* 

0003* 

0004 

0009 

0006 

0007 

0006 

0009 

0010 

0011 

0012 

0013 

0014 

0019 

0016 

0017 

0016 

0019 

0020 

0021 

0022 

0023* 

0024* 

0025* 

0026 

0027 

0026 

0029 

0030 

0031 

0032 

0033 



03304 
03309 
03306 
03307 
03310 
03311 
03312 
03313 
03314 
03319 
03316 
03317 
03320 
03321 
* 



036336 F8C13 132 UFLAB UNARY OPERATORS PERMITTED? 

014477 FSCE3 JSB ERROR NO 

064411 LDB UNMNC 

090393 CPA .43 *♦•? 

027314 JMP *«4 YES 

090354 CPA .49 NO, «-•? 

027319 JMP *«3 YES 

027305 JMP F8CE3 NO 

044404 ADB B3000 STORE 

034135 ISI 8BPTR UNARY 

174135 STB SBPTRrI OPERATOR 

064441 F8C14 LOB H9 UPDATE 

076330 STB HSFLB MULTIPLE STORE FLAB 

027121 JMP FSC2 FLaB 



CHECK FOR A MLLTICHARACTER BINARY OPERATOR ** 



03322 000000 MCBCK NOP 

03323 170135 STA SBPTRrI 

03324 080311 LDA MCBOP 
03329 114212 JSB TSRCHrl 

03326 127322 JMP MCBCK, I 

03327 027301 JMP F8C12 



03330 
03331 
03332 
03333 
03334 
03335 
03336 
03337 
03340 
03341 
03342 
03343 
03344 
03346 
03346 
03347 
03390 
03391 
03352 



000000 
070161 
064157 
044435 
074197 
006004 
160001 
072330 
006004 
160001 
072336 
006004 
160001 
073114 
006004 
160001 
073956 
060161 
127330 



FRCP 



NOP 
STA 
LOB 
ADB 
STB 
INB 
LDA 
STA 
INB 
LDA 
STA 
INB 
LDA 
STA 
INB 
LDA 
STA 
LDA 
JMP 



TEMPI 
TEMPS 
M5 
TEMPS 

Ifl 

MSFLS 

Irl 

UFLAB 

1»I 
F8C 

1,1 

VARQP 
TEMPI 
FPOP,I 



FRCUR NOP 

LDB TEMPS 

I NB 

LDA M8FL8 

STA 1,1 

I NB 

LOA UFLAB 

STA 1,1 



SEARCH 
FOR 'AND* 
OR 'OR' 
NOT FOUND 
FOUND 



** RESTORE FSC LOCAL QUANTITIES ** 



SAVE CHARACTER 



RESTORE S-STACK TOP 



RESTORE MULTIPLE STORE FLAB 



RESTORE UNARY OPERATOR FLAG 



RESTORE FSC RETURN ADDRESS 

RESTORE 

VAROP RETURN ADDRESS 
RETRIEVE CHARACTER 



** SAVE LOCAL QUANTITIES OF FSC •• 
* 

03353 000000 

03354 064157 

03355 006004 

03396 062330 

03397 170001 

03360 006004 

03361 062336 

03362 170001 



FETCH CURRENT 8-8TACK POINTER 
UPDATE IT 

DUMP MULTIPLE STORE 
FLAB ON S-STACK 

STACK UNARY OPERATOR 
FLAB 
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0034 

0035 

0036 

0037 

0036 

0039 

0040* 

0041 

0042* 

0043 

0044 

0045 

0046 

0047 

0046 

0049 

0050 

0051 

0052 

0053* 

0054* 

0055* 

0056 

0057 

0056 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0078 
0079 
0080 
0081 
0082 
0083 
0084 
0b85 
0086 
0087 
0058 
0089 



03363 
03364 
03366 
03366 
03367 
03370 



006004 
063114 
170001 
063556 
017371 
127353 



*** PUT ITEM ON S-ST 



03371 

03372 

03373 
03374 
03376 
03376 
03377 
03400 
03401 
034^2 



000000 
006004 
170001 
006004 
074167 
007004 
044106 
006020 
014477 
127371 



3SCV 



FSCE4 






CHECK FUR SUBSCR 



03403 
03404 

03406 
03407 
03410 
03411 
03412 
03413 
03414 
03415 
03416 
03417 
03420 
03421 
03422 
03423 
03424 
03425 
03426 
03427 
03430 
03431 
03432 
03433 
03434 
03435 
03436 
03437 
03440 
03441 
03442 
03443 
03444 



000000 
064432 
015274 
002320 
127403 
037403 
161715 
010445 
002004 
171715 
060412 
170135 
0B6400 
056332 
027473 
114221 
000460 
006727 
074161 
007400 
015274 
002270 
027436 
135715 
114221 
000460 
002001 
006404 
036334 
027460 
070162 
060001 
030161 
015336 



SBSCK 



SBSCl 



INB 




LDA FSC 


STACK FSC 


STA WI 


RETURN ADDRESS 


LOA VAROP 


STACK VAROP RETURN ADDRESS 


J8B 880V 


AND CHECK FOR S-STACK OV 


JHP FRCURrI 




ACK AND CHECK 


FOR OVERFLOM ** 


NOP 


STORE QUANTITY 


INB 


ADVANCE S-STACK POINTER 


STA 1,1 


SAVE ITEH IN (A) 


INB 


ADVANCE S-STACK POINTER 


STB TEMPS 


AND RECORD IT 


CHBrlNB 




A06 LMBN 


LAST MORO 


SSB 


EXCEEDEOT 


JSB ERROR 


YES 


JhP S80V*1 




IPT PART •• 




NOP 


CHARACTER IN U) 


LOB M2 


LEFT BRACKET 


JSB SYHCK 


OR 


DEF LBRAC-1 


LEFT PARENTHESIS? 


JHP SBSCKrI 


NO, RETURN VIA (P«l) 


ISZ SBSCK 


YES, SET RETURN TO (P*2) 


LOA ARYAUrl 


SET 


AND M16 


ARRAY 


INA 


TO 


STA ARYAOrl 


8INQLE SUBSCRIPT 


LOA B2200 


RECORD A 


STA 8BPTR,I 


LEFT BRACKET 


CLB 


DIH OR COH 


CP8 DFLA6 


STATEMENT? 


JHP SBSC3 


NO 


JSB POINT, I 


FETCH INTEQER 


DEF M256 


SUBSCRIPT BOUND 


BLFfBLF 


SAVE 


STB TEMPI 


BOUND 


CCB 


IS THE 


JSB SYHCK 


NEXT CHARACTER 


DEF SCMHA-1 


A COHHA? 


JHP SBSCl 


NO 


tSZ ARYAOrl 


YES, NOTE SECOND SUBSCRIPT 


JSB PGINTrl 


FETCH SECOND 


DEF H256 


INTEQER SUBSCRIPT BOUND 


R88 




CLB, INB 


SET ONE-DIHENSIONAL CASE 


ISZ PFLA6 


COM STATEMENT? 


JHP 8BSC2 


NO 


STA TEHP2 


SAVE CHARACTER 


LOA 1 




lOR TEHPi 


RETRIEVE FIRST BOUND 


JSB HDIH 


FIND STORAGE NEED 
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0090 
0091 
0092 
0093 
0094 
0095 
0096 
01^97 
0098 
0f'99 
0100 
0101 
dlJi2 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 



03445 
03446 
03447 
03490 
03451 
034b2 
03453 
03454 
03455 
03456 
03457 
03460 
03461 
03462 
03463 
03464 
03465 
03466 
03467 
03470 
03471 
03472 
03473 
03474 
03475 
03476 
03477 
03500 
03501 
03502 
03503 
03504 
03505 
03506 
035^7 
03510 
03911 
03512 
03613 
03514 
03515 
03516 
03517 
03520 
03521 
03522 
03523 
03524 
03525 
03526 
03527 



040166 
070166 
060162 
064432 
015274 
002264 
027295 
060407 
170135 
034135 
016614 
060334 
066332 
0060^2 
127403 
017330 
064432 
044157 
074157 
006)304 
164001 
124001 
063403 
064157 
017371 

017353 
064441 
076330 
061715 
064157 
017371 
017114 
007400 
044135 
074135 
064432 
044157 
074157 
006004 
164001 
076715 

007400 

015274 
002270 
027450 
138715 
017114 
007400 
044135 
074135 
027450 



S6SC2 



SBSC3 



ADA 


TEMPS+7 


UPDATE COM 


STA 


T£HPS*7 


STORAGE POINTER 


LOA 


1EMP2 


RETRIEVE NEXT CHARACTER 


LOB 


M2 


RIGHT PARENTHESIS 


JSB 


SYMCR 


OR 


DEF 


RPARN-1 


RIGHT BRACKET? 


JMP 


FSCE2 


NO 


LDA 


LF 


YES, RECORD A 


8TA 


8BPTR,I 


RIGHT BRACKET 


182 


SBPTR 


ADJUST 8-BUFFER POINTER 


JSB 


GETCR 


FETCH FOLLOMING 


LDA 


.10 


CHARACTER 


LDB 


0FLA6 


DIM OR COM 


SZB 




STATEMENT? 


JHP 


SBSCKrI 


YES 


JSB 


FPOP 


RESTORE FSC LOCAL VARIABLES 


LDB 


M2 


RESTORE 


A06 


TEMPS 


S-8TACK 


STB 


TEMPa 


POINTER 


IN6 




FETCH 


LOB 


If I 


RETURN ADDRESS 


JMP 


If I 


AND EXIT 


LUA 


SBSCK 


SAVE 


LOB 


TEMPS 


RETURN ADDRESS 


JSB 


SSOV 


ON S-STACK 


JSB 


FRCUR 


SAVE FSC LOCAL VARIABLES 


LDB 


M9 


SET MULTIPLE STORE FLAG 


STB 


MSFL6 


TO FALSE 


LDA 


ARYAD 


SAVE 


LDB 


TEMPS 


OPERAND 


JSB 


SSOV 


ADDRESS 


JSB 


F8C 


GET SUBSCRIPT FORMULA 


CCB 




CANCEL 


ADB 


SBPTR 


END-OF-FORMULA 


STB 


SBPTR 


OPERATOR 


LOB 


M2 


RESTORE 


ADB 


TEMPS 


S-STACK 


STB 


TEMPS 


POINTER 


INB 




RESTORE 


LDB 


If I 


OPERAND 


STB 


ARYAU 


ADDRESS 


CCB 




IS THE 


JSB 


SYMCK 


NEXT CHARACTER 


DEK 


SCMMA-1 


A COMMA? 


JMP 


SBSC2 


NO 


IS2 


ARYAOf I 


YES, NOTE SECOND SUBSCRIPT 


JSB 


FSC 


GET SUBSCRIPT FORMULA 


CCB 




CANCEL 


ADB 


SBPTR 


END-OF-FORHULA 


STB 


SBPTR 


OPERATOR 


JMP 


SBSC2 
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ei42« 

0143* 

0144* 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157* 

0156* 

0159* 

0160 

0161 

0162 

0163 

0164 

0166 

0166 

0167 

0168 

0169 

0170* 

0171* 

0172* 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 

0181 

0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 



CHECK SYNTAX OF ARRAY UEFINITIONS •* 



* 

* 

03530 000000 

03531 017544 

03532 017403 

03533 014477 

03534 050334 

03535 127530 

03536 007400 

03537 015274 

03540 002260 

03541 024266 

03542 037530 

03543 127530 



ARRYS NOP 

JSB ARRID 
JSB 8BSCK 
JSB ERROR 

ARREl CPA .10 

JMP ARRVS,! 

COB 

JSB SYMCK 

DEF COHHA-1 

JMP NOEOF 

ISZ ARRVS 

JHP ARRYSrI 



** FETCH ARRAY lEENTIFIER ** 



03544 000000 
03645 017635 
83546 014477 
eiQA? 060135 

03550 071715 

03551 060161 

03552 064355 

03553 017650 

03554 060162 

03555 127544 



** CHECK FOR 

* 

03556 000000 

03557 017635 

03560 127556 

03561 037556 

03562 050351 

03563 027624 

03564 050373 

03565 027624 

03566 037556 

03567 015570 
035/0 027600 

03571 060161 

03572 044357 

03573 074161 

03574 017650 

03575 013614 

03576 060334 

03577 027604 

03600 060161 

03601 064356 

03602 017650 
036l£i3 060162 

03604 070162 

03605 006400 

03606 056334 



ARRID 



ARRE2 



NOP 
JSB 
JSB 
LOA 
STA 
IDA 
LDB 
JSB 
LOA 
JMP 



LTR 

ERROR 

8BPTR 

ARYAD 

TEMPI 

.46 

STROP 

TEMP2 

ARRIOrl 



FETCH ARRAY IDENTIFIER 
RECORD A SUBSCRIPT 
MISSING SUBSCRIPT 
END-OF-STATEMENTT 
YES, RETURN VIA (P*U 
NO, 

MUST BE 
A COMMA 
ISN'T 
ISr RETURN 

VIA (P*2) 



FETCH LETTER 
NONE FOUND 
SAVE 

OPERAND ADDRES 
RECORD 
ARRAY 
IDENTIFIER 
RETRIEVE FOLLOWINS CHARACTER 



VARIABLE OPERAND ** 



VAROP NOP 
JSB 
JMP 
ISZ 
CPA 
JMP 
CPA 
JMP 
ISZ 
JSB 
JMP 
LDA 
ADB 
STB 
JSB 
JSB 
LOA 
JMP 

VAROl LOA 
LDB 
JSB 
LOA 

VAR02 STA 
CLB 
CP6 



LTR 

VAROPrI 

VAROP 

.40 

VAROS 

6133 

VAROS 

VAROP 

DIGCK 

VAROl 

TEMPI 

.48 

TEMPI 

STROP 

GETCR 

.10 

VAR02 

TEMPI 

.47 

STROP 

TEMP2 

TEMP2 

PFLAB 



LETTER? 
NO, EXIT 



VIA (P*n 



LEFT PARENTHESI8T 

YES 

NO, LEFT BRACKET! 

YES 

NO 
DIGIT? 

NO 
YES, RETRIEVE LETTER, 

AND RESTORE ASCII DIGIT 

RECORD VARIABLE 
FETCH FOLLOWING 
CHARACTER 

RETRIEVE LETTER, 
SET 'NO DIGIT', 
AND RECORD VARIABLE 
RETRIEVE F0LL0MIN6 CHARACTER 
SAVE CHARACTER 
INSIDE A 

DEF STATEMENT? 
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019S 

0199 

0200 

0201 

0202 

0203 

0204 

0205 

0206 

0207 

0206 

0209 

0210 

0211 

0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220* 

0221* 

0222* 

0223 

0224 

0225 

0226 

0227 

0228 

0^29 

0230 

0231 

0232 

0233 

0234* 

0235* 

0236* 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 



03607 

03610 
03611 
03612 
03613 
03614 
03615 
03616 
03617 
03620 
ii3621 
03622 
03623 
03624 
03625 
03626 
03627 
03630 
03631 
03632 
03633 
03634 

** FETCH 

* 

03635 
03636 
03637 
03640 
03641 
03642 
03643 
03644 
03645 
03646 
03647 
* 

* 
03660 
03651 
03652 
03653 
03664 
03655 
03656 
03657 
03660 



127556 
007400 
044135 
160001 
010401 
052334 
027620 
06W162 
127556 
160001 
030470 
170001 
027616 
060135 
071715 
06i0l6l 
064355 
017650 
060373 
017403 
000000 
127556 



VAR03 
VAR04 



VAR05 



JHP 
CCS 
ADB 
LDA 
AND 
CPA 
JMP 
tOA 
JMP 
LDA 
lOR 
STA 
JMP 
LDA 
STA 
LDA 
LDB 
JS0 
LDA 
JSd 
NOP 
JMP 



A LkfTER *• 



00k>000 
015614 
060334 
015603 
127635 
037635 
070161 
015614 
060334 
070162 
127635 



LTR 



NOP 
JSB 
LDA 
JSB 
JMP 
ISZ 
STA 
JSB 
LDA 
STA 
JMP 



VAROPrI NO, EXIT VIA (P*3) 

8BPTK RETRIEVE 

Ifl 

M8K1 OPERAND 

PFLAU MATCH PARAMETER? 

VAR04 YES 

TEMP2 NO, RETRIEVE 

VAROP,I CHARACTER AND EXIT VIA (P*3» 

1,1 SET OPERAND TO 

FL6BT ACTUAL PARAMETER 

1,1 AND RECORD IT 

VAR03 

SBPTK SAVE 

ARYAJ OPERAND ADDRESS 

TEMPI RETRIEVE LETTER 

.46 RECORD 

STROP ARRAY IDENTIFIER 

B133 RETRIEVE LEFT BRACKET 

SB3CK FETCH SUBSCRIPT 

VAROP,I EXIT VIA (P»2) 



6ETCR 

.10 

LETCK 

LTR, I 

LTR 

TEMPI 

QETCR 

.10 

TEMP2 
LTR, I 



STORE AN OPERAND NAME ♦• 



000000 
040453 
044451 
001700 
030001 
130135 
170136 
034135 
127650 



8TR0H 



NOP 
ADA 
ADB 
ALF 
lOR 
lOR 
STA 
ISZ 
JMP 



D100 
D53 

1 

SBPT«,l 
SBPTK, I 
SBPTK 
STROP,! 



LETTER? 

NO, EXIT VIA (P*l) 

YES, 

SAVE IT 
NEXT CHARACTER 
TO (A) 
SAVE SECOND CHARACTER 
EXIT VIA (P*2) 



LETTER IN (A), NUMBER IN (B) 
NUMERICALLY ADJUST THE 

OPERAND NAME 
COMBINE THE 

TWO PARTS 
COMPLETE OPERAND-OPERATOR PAIR 

AND STORE IT 
UPDATE 8-8UFFER POINTER 
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0247** 










0248*** CHECK FOR 


LEFT PARENTHESIS ♦• 


0249** 










0250 


03661 


000000 


LPCK NOP 




CHARACTER IN (A) 


0251 


03662 


064432 


LDB 


H2 


LEFT PARENTHESIS 


0252 


03663 


01&274 


JSB 


SYMCK 


OR 


0253 


03664 


002320 


DEF 


L8RAC-1 


LEFT BRACKET? 


0254 


03665 


027201 


JMP 


FSCEl 


NO 


0255 


03666 


06KI413 


LDA 


B2300 


YES, RECORD A 


0256 


03667 


170135 


STA 


SBPTK,! 


LEFT PARENTHESIS 


0267 


03670 


127661 


JhP 


LPCK,1 


EXIT 


0258** 










0259*** CHECK FOR 


RIQhT PARENTHESIS 


** 


0260** 










0261 


03671 


000000 


RPCK NOP 






0262 


03672 


064432 


LOB 


M2 


RIGHT PARENTHESIS 


0263 


03673 


015274 


JSB 


SYMCK 


OR 


0264 


0.J674 


002264 


DEF 


RPARN-1 


RIGHT BRACKET? 


0265 


03675 


027255 


JMP 


F8CE2 


NO 


0266 


03676 


060406 


LDA 


B4000 


YES, RECORD A 


0267 


03677 


170135 


STA 


SBPTRrI 


RIGHT PARENTHESIS 


0268 


03700 


034135 


ISZ 


SBPTR 


UPDATE SYNTAX BUFFER POINTER 


0269 


03701 


015614 


JSB 


GETCH 


FETCH 


0270 


03702 


060334 


LDA 


.10 


F0LL0WIN6 CHARACTER 


0271 


03703 


127671 


JMP 


RPCK, I 




0272** 










k!27J*** FETCH MAT 


STATEMENT SUBSCRIPT 


** 


0274*i» 










0275 


03704 


000000 


MATSB NOP 






0276 


037^5 


064432 


LDB 


M2 


LEFT PARENTHESIS 


0277 


03706 


016274 


JSB 


SYMCK 


OR 


0278 


03707 


002320 


DEF 


LBRAC-1 


LEFT BRACKET? 


0279 


03710 


127704 


JMP 


MATSBrl 


NO 


0280 


03711 


037704 


IS2 


MATSb 


YES, SET RETURN ADDRESS 


0281 


03712 


060412 


LDA 


B2200 


RECORD A 


0282 


33713 


170135 


STA 


SBPTR, I 


LEFT BRACKET 


0283 


03714 


017114 


JSB 


FSC 


FETCH SUBSCRIPT 


0284 


03716 


007400 


CCB 






0285 


03716 


015274 


JSB 


SYMCK 


COMMA? 


0286 


03717 


002260 


DEF 


COMMA-1 




0287 


03720 


002001 


RSS 




NO 


0288 


03721 


017114 


JSB 


FSC 


YES, FETCH SUBSCRIPT 


0289 


03722 


064432 


LDB 


M2 


RIGHT PARENTHESIS 


0290 


03723 


01t>274 


JSB 


SYMCK 


OR 


0291 


03724 


002264 


DEF 


RPARN-1 


RIGHT BRACKET 


0292 


03725 


027255 


JMP 


FSCE2 




0293 


03726 


060407 


LDA 


LF 


RECORD A 


0294 


03727 


170135 


STA 


SBPTRrI 


RIGHT BRACKET 


0295 


03730 


034135 


IS2 


SBPTR 




0296 


03731 


015614 


JSB 


GETCR 


END-OF-STATEMENT? 


0297 


03732 


124252 


JMP 


ACCST,I 


YES 


0296 


03733 


127704 


JMP 


MATSB, I 
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0300** 










0301*** FETCH PARENTHESIZED FORHULA 


** 


0302** 










0303 


03734 000(400 


6ETPF 


NOP 




0304 


03735 015614 






JSB OETCR 




0305 


03736 024265 






JMP EOF 




0306 


03737 034135 






ISl SBPTR 




0307 


03740 01/661 






JSB LPCK 


FETCH LEFT PAREN 


030S 


03741 017114 






JSB FSC 


FETCH FORMULA 


0309 


03742 017671 






JSB RPCK 


GET RIGHT PARENT 


0310 


03743 127734 






JMP GETPF,! 




0311** 










0312*** FLAG OPERATOR 


WHICH PRECEDES 


NUMBER ** 


0313** 










0314 


03744 0000U0 


NU^OP 


NOP 




0315 


03745 070164 






STA TEMP4 




0316 


03746 064433 






LDB M3 


FETCH 


0317 


03747 044135 






AD8 SBPTR 


PRECEDING 


0318 


03750 160001 






LDA 1,1 


OPERATOR 


0319 


03751 030470 






lOR FL6BT 


ADD FLAG BIT 


0320 


03752 170001 






STA Irl 


REPLACE OPERATOR 


0321 


03753 060164 






LDA TEHP4 




0322 


03754 12/744 






JMP NUMOPrI 
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0324* 

0325« 

0326* 

0327 

0328 

0329* 

0330 

0331 

0332* 

0333 

0334 

033b* 

0336 

0337 

0338* 

0339 

0340 

0341* 

0342 

0343 

0344* 

0345 

0346 

0347* 

0346 

0349 

0350* 

0351* 

0352* 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

U361 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 



SYSTEM COMMAND TABLE 



03755 000003 SYCMO OCT 



03756 05U25 

03760 002003 

03761 051503 

03763 003004 

03764 046111 

03766 005005 

03767 050114 

0J772 012003 
03773 050124 

03775 033004 



A8C 

OCT 
ASC 

OCT 
ASC 

OCT 
ASC 

OCT 
ASC 

OCT 



03776 051524 STCMD ASC 



04000 
04001 



046t)03 
052101 



OCT 
ASC 



00003 
2, RUN 

02083 
2,SCK 

03004 
2»LIST 

05005 
3rPLIST 

12003 
2,PTA 

33004 
2, STOP 

46003 

2, TAP 



04003 090003 OCT 50003 

04004 041131 ASC 2»BYE 
* 

•* PRINT NAME TABLE FOR OPERATORS 



04006 
04007 
04011 
04012 
04014 
04015 
04017 
04020 
04022 
04023 
04025 
04026 
04030 
04031 
04032 
04033 
04036 
04036 
04040 
04041 
04044 
04045 
04050 
04051 
04053 
04054 
04056 



032003 
046105 
033003 
042111 
034003 
041517 
035003 
042105 
036003 
051105 
037004 
043517 
040002 
044506 
041003 
043117 
042004 
047105 
043005 
043517 
044006 
0511k;5 
045003 
042516 
046004 
051524 
047004 



LET 

Hit 

COf' 

OEF 

RE^ 

GOTO 

IF 

FOft 

NEXT 

60SUB 

RTBN 

ENE 

STF 

WAIT 



OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 



32003 

2, LET 

33003 

2rOlM 

34003 

2, COM 

35003 

2,0EF 

36003 

2rREM 

37004 

2, GOTO 

40002 

IflF 

41003 

2, FOR 

42004 

2, NEXT 

43009 

3,60SUB 

44006 

3, RETURN 

45003 

2, END 

46004 

2, STOP 

47004 



EXECUTE PROGRAM 
SCRATCH PROGRAM 
LIST COMMAND 
PUNCH LIST COMMAND 
ACTIVATE PHOTO-READER 
ABORT CURRENT ACTIVITY 
ACTIVATE TTY TAPE MODE 

EXIT SYSTEM 

** 
BITS 15-9 OF THE LABELLED MORD 
ARE THE BASIC CODE OPERATOR 
NUMBERS. BITS 2-0 ARE THE 
LENGTH IN CHARACTERS OF THE 
SYMBOL. THE ASCII VERSION OF 
THE SYMBOL FOLLOWS, 
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0380 

0361 

0382 

0383 

0384 

0385 

0386 

0387 

0388 

0389 

0390 

0391 

0392 

0393 

0394 

0395 

0396 

0397 

0398 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0406 

0409 

0410 

0411 

0412 

0413* 

0414 

0415 

0416 

0417 

0418 

0«19 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

0426 

0429 

0430 

0431 

0432 

0433 

0434 

0435 



04057 

04061 

04062 

04^64 

04065 

04067 

04070 

04072 

04073 

04076 

04077 

04102 

04103 

04107 

04110 

04112 

04113 

04115 

04116 

04117 

04120 

04122 

04123 

04125 

04126 

04130 

04131 

04132 

04133 

04134 

04135 

04136 

04137 

04140 
04141 
04143 
04144 
04146 
04147 
04151 
04152 
04154 
04155 
04157 
04160 
04162 
04163 
04165 
04166 
04170 
04171 
04173 
04174 
04176 
04177 



053501 

090004 

041501 

0511^04 

042101 

052004 

051105 

053005 

050122 

054005 

044516 

055007 

051105 

056003 

0465ui 

057004 

052110 

060002 

052117 

061004 

051524 

027003 

047117 

026003 

040516 

025002 

047522 

030002 

037075 

03l0td2 

036075 

01/002 

036076 

001003 
052101 
002003 
051511 
003003 
041517 
004003 
052101 
005003 
040524 
006003 
042530 
007003 
M46117 
010003 
040502 
011003 
051521 
012003 
044516 
013003 
051116 



CALL 

DATA 

READ 

PRINT 

INPUT 

kSTUR 

MAT 

IHtN 

TO 

STEP 

NOT 

ANC 

UR 

GTE 

LTE 

AU^EC 

TAB 

SIN 

COS 

TAN 

ATh 

tXFN 

LOG 

ABS 

SOR 

INT 

RNI, 



ASC 

OCT 

ASC 

OCT 

ASC 

OCT 

ASC 

OCT 

ASC 

OCT 

ASC 

OCT 

ASC 

OCT 

ASC 

OCT 

ASC 

OCT 

ASC 

OCT 

ASC 

OCT 

ASC 

OCT 

ASC 

OCT 

ASC 

OCT 

ASC 

OCT 

ASC 

OCT 

ASC 

OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 
OCT 
ASC 



2rWAIT 

50004 

2fCALL 

51004 

2, DATA 

52004 

2, READ 

53005 

3, PR I NT 

54009 

3, INPUT 

55007 

4rREST0RE 

56003 

2rMAT 

57004 

2rTHEN 

60002 

1,T0 

61004 

2, STEP 

27003 

2, NOT 

26003 

2rAN0 

25002 

IrOR 

30002 



31002 

lf<- 

17002 

IfO 

1003 

2, TAB 

2003 

2fSlN 

3003 

2, COS 

4003 

2rTAN 

5003 

2rATN 

6003 

2, EXP 

7003 

2rL00 

10003 

2, ABS 

11003 

2rSQR 

12003 

2, INT 

13003 

2rRN0 



ALTERNATE UNEQUAL 8I0N 

THIS SECTION HAS THE PRE-DEFINED 
FUNCTIONS. HERE BITS 13*9 ARE 
THE IDENTIFYING NUMBER OF THE 
FUNCTION. 
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0436 


04201 


014003 


8GK 


OCT 14003 




0437 


04202 


061607 




ASC 2, SON 




0436 


04204 


015003 


ZER 


OCT 15003 


MATRIX FUNCTIONS 


0439 


04205 


055105 




ASC 2,ZER 




0440 


04207 


016003 


COh 


OCT 16003 




0441 


04210 


041517 




ASC 2#C0N 




0442 


04212 


017003 


IDK 


OCT 17003 




0443 


04213 


044504 




ASC 2»IDN 




0444 


04215 


020003 


INV 


OCT 20003 




0445 


04216 


044516 




ASC 2>INV 




0446 


04220 


021003 


TR^ 


OCT 21003 




0447 


04221 


052122 




ASC 2,TRN 




0448** 










0449*** TABLE SEARCH FOR 


MULTICHARACTER 8YHB0L8 ** 


0450** 










0451 


04223 


000000 


TB8RH 


NOP 




0452 


04224 


072333 




STA TABLE 


STORE TABLE ADDRESS 


0453 


04225 


074167 




STB LNGTH 


STORE -(NUMBER OF ENTRIES) 


0454 


04226 


060132 




LDA BAOOR 


SAVE 


0455 


04227 


070163 




STA TEMP3 


INPUT 


0456 


04230 


060133 




LDA CCNT 


BUFFER 


0457 


04231 


07tfl64 




STA TENP4 


STATUS 


0458 


04232 


060135 




LDA 8BPTR 


INITIALIZE EN0-0F-8YHB0L 


0459 


04233 


072351 




STA 8MEN0 


POINTER 


0460 


04234 


002404 




CLA,INA 


COUNT FIRST CHARACTER OF 


0461 


04235 


072556 




STA SLENO 


SYMBOL 


0462 


04236 


160135 




LOA SBPTRrI 


FETCH PARTIAL SYMBOL 


0463 


04237 


010374 




AND B177 


TWO 


0464 


04240 


150135 




CPA SBPTR,l 


CHARACTERS? 


0465 


04241 


002001 




R88 


NO 


0466 


04242 


026265 




JMP TSR10 


YES 


0467 


04243 


001727 




ALFrALF 


LEFT-JUSTIFY 


0466 


04244 


030345 




lOR .32 


FIRST CHARACTER AND 


0469 


0424S 


170135 




STA SBPTRrI 


APPEND BLANK 


0470 


04246 


015614 


TSRCl 


JSB 6ETCR 


FETCH NEXT CHARACTER 


0471 


04247 


026326 




JMP TSRC9 


EN0-OF-8TATEMENT 


0472 


04250 


066556 




LDB SLENG 


CHECK FOR 


0473 


04251 


054331 




CPB .7 


IMPOSSIBLE LENGTH 


0474 


04252 


026326 




JMP TSRC9 




0475 


04253 


004010 




SLB 


EVEN. NUMBERED CHARACTER? 


0476 


04254 


026262 




JMP TSRC2 


YES 


0477 


04255 


036351 




ISZ SMENO 


NOr FETCH FRESH WORD, 


0478 


04256 


001727 




ALFfALF 


LEFT-JUSTIFY CHARACTER, 


0479 


04257 


030345 




lOR .32 


APPEND BLANK, 


0480 


04260 


172351 




STA SMEND,! 


AND STORE 


0461 


04261 


026265 




JMP TSRia 




0482 


04262 


040450 


TSf^U2 


ADA M32 


DELETE BLANK, 


0483 


04263 


142351 




ADA SMENO, I 


FILL SECOND CHARACTER, 


0464 


04264 


172351 




STA SMENDrl 


AND STORE 


0465 


04265 


036556 


TSR10 


ISZ SLENG 


COUNT IT 


0486 


04266 


064167 




LDB LN6TH 


INITIALIZE TABLE LENGTH 


0487 


04267 


074165 




STB COUNT 


COUNTER 


0486 


04270 


062333 




LDA TABLE 




0489 


04271 


072513 


TSRC3 


STA TBLPT 


SET TABLE POINTER 


0490 


04272 


162513 




LDA TBLPTrl 


EXTRACT SYMBOL LENGTH 


k)491 


04273 


010331 




AND ,7 


FROM TABLE AND COMPARE 
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0492 


04274 


052556 




CPA 


SLEN& 


WITH CURRENT SYHbOL 


0493 


04275 


026304 




JMP 


TSRC5 


EQUAL? 


0494 


04276 


040326 


TSiiC4 


ADA 


.3 


DIFFERENT, 


0495 


04277 


001100 




AR8 




UPDATE 


0496 


04300 


042513 




ADA 


TBLPT 


TABLE POINTER 


0497 


04J»1 


034165 




IS2 


COUNT 


HORE ENTRIES? 


0498 


04302 


026271 




JHP 


T8RC3 


YES 


0499 


04303 


026246 




JHP 


T8RC1 


NO 


0S00 


04304 


066513 


TSRC5 


LDB 


TBLPT 


SET POINTER TO 


0901 


04305 


076537 




STB 


T8PTR 


TABLE SYHBOL 


0502 


04306 


064135 




LDB 


8BPTR 


SET (B) TO INPUT 


0509 


04307 


026313 




JHP 


TSRC7 


SYHBOL POINTER 


0504 


04310 


056351 


TSRC6 


CPB 


8HEND 


ALL OF SYHBOL CONSIDERED? 


0605 


04311 


026321 




JHP 


TSRC8 


YES, HATCH OCCURRED 


0506 


04312 


006004 




INB 




NO, INCREHENT 


0507 


04313 


036537 


T8RC7 


I8Z 


T8PTR 


SYHBOL POINTERS 


0508 


04314 


162537 




LDA 


TSPTRrI 


FETCH WORD FROH TABLE 


0509 


04315 


150001 




CPA 


Irl 


HATCH WITH INPUT SYHBOL? 


0510 


04316 


026310 




JHP 


TSRC6 


YES 


05U 


04317 


062556 




LDA 


8LEN6 


NO, WRONG 


0512 


04320 


026276 




JHP 


T8RC4 


SYHBOL 


0513 


04321 


162513 


TSRC8 


LDA 


TBLPT, I 


EXTRACT 


0614 


04322 


010420 




AND 


OPHSK 


SYHBOL CODE 


0515 


04323 


170135 




8TA 


8BPTR,I 




0516 


04324 


036223 




132 


TBSRH 


AND RETURN VIA 


0517 


04325 


126223 




JHP 


TBSRHrl 


•SUCCESS* EXIT 


0518 


04326 


060163 


TSRC9 


LDA 


TEHP3 


RESTORE 


0519 


04327 


070132 




8TA 


BADDR 


INPUT 


0920 


04330 


060164 




LDA 


TEHP4 


BUFFER 


0521 


04331 


070133 




STA 


CCNT 


STATUS 


0522 


04332 


126223 




JHP 


TBSRH, I 


•FAILURE' EXIT 


0523** 












0524*** FETCH AND 


RECORD 


PR06RAH INTE6ER *• 


0525** 












0526 


04333 


000000 


PR6IN 


NOP 






0527 


04334 


160139 




LDA 


S8PTR,I 


SET 


0528 


04335 


030470 




lOR 


FLSBT 


•INTEGER 


0529 


04336 


040326 




ADA 


.3 


FOLLOWS' 


0530 


04337 


17fcl35 




STA 


SBPTR,! 


OPERAND 


0531 


04340 


162333 




LDA 


PRQIN,I 


GIVE ADDRESS 


0532 


04341 


072346 




STA 


PR6I1 


TO INTCK 


0533 


04342 


034135 




ISZ 


SBPTR 




0534 


04343 


015614 




JSB 


6ETCH 




0535 


04344 


014477 


8YE25 


JSB 


ERROR 




0536 


04345 


016351 




JSB 


INTCK 


FETCH 


0537 


04346 


000000 


PRSll 


NOP 






053B 


04347 


036333 




ISZ 


PR6IN 




0539 


04350 


126333 




JHP 


PROIN,! 




0540** 












0541*** BUILD AN INTEGER 


** 






0542** 












0543 


04351 


000000 


INTCK 


NOP 




CHARACTER IN <A) 


0544 


04392 


006400 




CLB 




STORE 


0545 


04333 


076556 




STB 


INT6R 


PARTIAL RESULT 


tf546 


04354 


015570 


INTCl 


JSB 


0I6CK 


DIGIT? 


0547 


04355 


026373 




JHP 


INTC2 


NO 
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0b48 


04356 


103101 


CLO 






0549 


04357 


066S56 


LDB 


INT9R 


MULTIPLY 


0550 


04360 


044001 


ADB 


1 


PARTIAL 


0651 


04361 


044001 


ADB 


1 


RESULT 


0552 


04362 


046566 


ADB 


INT6R 


BY 


0553 


04363 


044001 


AOB 


1 


10 


0554 


04364 


044000 


ADB 





ADD LATEST DIGIT 


0555 


04365 


102201 


SOC 




OVERFLOW? 


0556 


04366 


026344 


JMP 


SYE25 


YES 


0557 


04367 


076556 


STB 


INTGR 


STORE PARTIAL RESULT 


0558 


04370 


015614 


J38 


6ETCK 


NO, FETCH 


0559 


04371 


060334 


LOA 


.10 


NEXT CHARACTER 


0560 


04372 


026354 


JMP 


INTCi 




0561 


04373 


066556 


INTC2 LDB 


INT8K 


ZERO 


0562 


04374 


006003 


SZBi 


rRSS 


INTEGER? 


0563 


04375 


026344 


JMP 


SYE26 


YES 


0564 


04376 


174135 


STB 


SBPTRrI 


NO, RECORD IT 


0565 


04377 


166351 


LDB 


INTCK^I 


INTEGER 


0566 


04400 


164001 


LDB 


UI 


TOO 


0567 


04401 


046556 


ADB 


INT6H 


LARGE? 


0568 


04402 


006021 


SSB, 


rRSS 




0569 


04403 


026344 


JMP 


SVE25 


YES 


0570 


04404 


066556 


LDB 


INTGR 


NO, 


0571 


04405 


034135 


ISZ 


SBPTK 


RETURN MITH 


0572 


04406 


036351 


ISZ 


INTCK 


INTEGER 


0573 


04407 


126351 


JMP 


INTCKrI 


IN (B> 


0674** 










0575«** PROCESS CHARACTER STRING •• 




0576** 










0577 


04410 


000000 


CMRST NOP 






0578 


04411 


070162 


8TA 


TEMP2 


RECORD TERMINATOR CHARACTER 


0579 


04412 


060334 


LDA 


.10 


DUMMY 


0580 


04413 


070476 


STA 


BLANK 


DELETE CHARACTER 


0581 


04414 


015614 


CHRSl JSB 


GETCR 




0582 


04415 


026433 


JMP 


CHRS3 


TO END-0F-8TATEMENT EXIT 


0583 


04416 


050162 


CPA 


TEMP2 


TERMINATOR CHARACTER? 


0584 


04417 


026432 


JMP 


CHRS2 


YES 


0585 


04420 


130135 


lOR 


8BPTR,I 


NO, FILL 


0586 


04421 


170135 


STA 


SBPTK, I 


SECOND CHARACTER 


0587 


04422 


015614 


JSB 


GETCR 




0588 


04423 


026433 


JMP 


CHRS3 


TO END-OF-STATEMENT EXIT 


0589 


04424 


050162 


CPA 


TEMP2 


TERMINATOR CHARACTER? 


0590 


04425 


026432 


JMP 


CHRS2 


YES 


0591 


04426 


034135 


ISZ 


SBPTR 


NO, MOVE TO NEW WORD 


0592 


04427 


001727 


ALF, 


ALF 


AND STORE 


0593 


04430 


170135 


STA 


SBPTRrI 


FIRST CHARACTER 


0594 


044^1 


026414 


JMP 


CHRSl 




0595 


04432 


036410 


CHRS2 ISZ 


CHRST 


SET <P*2) EXIT 


0596 


04433 


034135 


CHRS3 ISZ 


SBPTR 


MOVE TO NEXT BUFFER WORD 


0597 


04434 


060345 


LDA 


.32 


RESTORE BLANK AS 


0596 


04435 


070476 


STA 


BLANK 


DELETE CHARACTER 


0599 


04436 


126410 


JMP 


CHRST, I 
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0601* 

0603* 

0604 

0605 

0606 

0607 

0608 

0609 

0610 

0611 

0612* 

0613* 

0614* 

0615* 

0616* 

0617 

0616 

0619 

0620 

0621 

0622 

0623 

0624 

0625 

0626 

0627 

0626 

0629 

0630 

0631 

0632 

0633 

0634 

0635 

0636 

0637 

0638 
Ub39 
0640 
0641 
0642 
0643 
0644 
0645 
0646 
0647 
064B 
0649 
0650 
0651 
0652 



« • 

04437 

04440 
04441 
04442 
04443 
04444 
04445 
04446 



yELETt STATEMENT *• 



16fc)134 
016513 
124204 
124204 
002400 
006004 
016537 
124204 



DLSTh 



LDA 
JSB 
JMP 
JMP 
CLA 
INb 
JSB 
JMP 



SBUFA^I 
FNDPS 
PEXHArl 
PEXHAfl 



CLPR6 
PEXMArl 



** *** 

* ACCEPT STATEHENT •• 



04447 
04450 
04451 
04452 
044S3 
04454 
04455 
04456 
04457 
04460 
04461 
04462 
04463 
04464 
04465 
04466 
04467 
04470 
04471 
04472 
04473 
04474 
04475 
04476 
04477 
04500 
04501 
04502 
04503 
04504 
04505 
04506 
04507 
04510 
04511 
04312 



060134 
003004 
040135 
170160 
160134 
016513 
026472 
026507 
006004 
160001 
003004 
140160 
002003 
026474 
002021 
026510 
160160 
016537 
026474 
160160 
016556 
006400 
060134 
070162 
160162 
170163 
034162 
034163 
006004 
154160 
124204 
026477 
160160 
016556 
014554 
026474 



ACTST 



ACCSl 



ACCS2 



ACCS3 



ACCS4 



*** 

LDA 
CHA 
ADA 
STA 
LDA 
JSB 
JMP 
JMP 
INB 
LDA 
CHA 
ADA 
SZA 
JMP 
8SA 
JMP 
LOA 
JSB 
JHP 
LDA 
JSB 
CLB 
LDA 
STA 
LDA 
STA 
ISZ 
ISZ 
INB 
CPB 
JMP 
JMP 
LDA 
JSB 
JSB 
JMP 



SBUFA 
rlNA 
8BPTR 
TEMP,1 
SBUFA, I 
FNDPS 
ACCSl 
ACCS4 

If I 
r INA 

TEMP, I 
fRSS 

ACCS2 
rRSS 

ACCS44>1 

TEMP,! 

CLPRS 

ACCS2 

TEMP, I 

OVCHK 

SBUFA 

TEMP2 

TEMP2,I 

TEMPS, I 

TEHP2 

TEMP3 

TEMP, I 

PEXMA,I 

ACCS3 

TEMP, I 

OVCMK 

MVTOM 

ACCS2 



LOAD SEQUENCE NUMBER 
FIND STATEMENT TO BE DELETED 
DOESN'T 
EXIST 
ZERO MORD SKIP FOR DESTINATION 
ADDRESS OF SOURCE MORD SKIP IN B 
CLOSE UP PROGRAM 
EXIT TO PHASE 1 WAIT 



COMPUTE 
LENGTH 

OF STATEMENT 
AND RECORD IT 
LOAD SEQUENCE NUMBER 
SEARCH ON SEQUENCE NUMBER 
APPEND STATEMENT TO PROGRAM 
INSERT STATEMENT IN PROGRAM 
REPLACE STATEMENT IN PROGRAM 
COMPARE LENGTHS OF 

STATEMENT BEING REPLACED 
AND STATEMENT 
REPLACING IT 
EQUAL 

SHORTER 
LONGER* 

CLOSE UP PROGRAM 

LOAD PROGRAM SPACE REQUIREMENT 
SUFFICIENT PROGRAM SPACE LEFT? 
YES, SET COUNTER TO ZERO 
INITIALIZE 

SOURCE ADDRESS 
TRANSFER MORD FROM 

S-BUFFER TO PROGRAM SPACE 
INCREMENT SOURCE AND 

DESTINATION ADDRESSES 
BUMP COUNTER 
ENTIRE STATEMENT MOVED? 
YES 
NO 

LOAD PROGRAM SPACE REQUIREMENT 
SUFFICIENT PROGRAM SPACE LEFT? 
MAKE 

ROOM 
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0t»54* 

0655* 

0656* 

0657 

0658 

0659 

0660 

0661 

0662 

0663 

0664 

0065 

0666 

0667 

0668 

0669 

0fj70 

0671 

0672 

0673 

0674 

0675 

0676 

0677* 

0678* 

0679* 

0680 

0661 

0682 

0683 

0684 

0685 

0666 

0687 

0668 

0689 

069e 

0691 

0692 

0693 

0694 

0695* 

0696* 

0697* 

0698 

0699 

0700 

0701 

0702 

0703 

0704 

0705 

0706 

^^^7 

0708 
0709 






FIND SEQUENTIAL POSITION 



** 



DELETt SPACE IN PROGRAM •♦ 



04313 
04514 
04515 
04516 
04517 
04520 
04521 
04522 
04523 
04524 
04525 
04526 
04527 
04530 
04531 
04532 
04533 
04534 
04535 
04536 
* 

* 

04537 

04540 

1^4541 

04542 

04543 

04344 

04545 

04546 

04547 

04550 

04551 

04552 

04553 

04554 

04555 
* 

** CHECK 

* 
04556 
04657 
04560 
04561 
04562 
04563 
04564 
04565 
04566 
84567 
04570 
04571 



000000 
070163 
064112 
054113 
026535 
160001 
003004 
040163 
002003 
026533 
002020 
026534 
060001 
002004 
144000 

026516 
036513 
036513 
074163 
126513 



FN£ 
FNC 



PS 



PI 



FNI 
FNt 
FNC 



P2 
P3 
P4 



NOP 
STA 
LDB 
CPB 
JMP 
LOA 
CMA 
ADA 
SZA 
JMP 
SSA 
JMP 
LOA 
INA 
ADB 
JMP 
ISZ 
ISZ 
STB 
JMP 



TEMP3 

PBUFF 

PBPTrt 

FNDP4 

Irl 
rINA 

TEMP3 
rhSS 

FNDP2 

FNDP3 
1 

Brl 

FNDPl 

FNDPS 

FNDPS 

TEMP3 

FNDPSrI 



000000 
040163 
07i<9164 
164001 

044163 
054113 
026553 
160001 
170164 
034164 
006004 
026544 
060164 
070113 
126537 



FOR 



000000 
064113 
074162 

044000 

074164 
007004 
-344106 
006020 
124271 
064164 
074113 
126556 



CLFRG 



CLPRl 



CLFR2 



NOP 
ADA 
STA 
LOB 
AOB 
CPB 
JMP 
LOA 
STA 
ISZ 
INB 
JMP 
LDA 
STA 
JMP 



TEMPS 

TEMP4 

\,\ 

TEHP3 

PBPTR 

CLPR2 

If I 

TEMP4,I 

TEMP4 

CLPRl 
TEMP4 
PBPTK 
CLPRQfl 



SAVE SEQUENCE NUMBER 

STARTING ADDRESS 

END OF PROGRAM? 

YES, EXIT VIA (P+l) 

SUBTRACT PROGRAM 

SEQUENCE NUMBER FROM 
S-BUFFER SEQUENCE NUMBER 

EQUAL? 

YES, SET EXIT TO <P*3» 

NO, P-SEO NO > S-8EQ NO 7 

YES, SET EXIT TO (P*2) 

POINT (A) TO 

PROGRAM ADDRESS INCREMENT 

COMPUTE NEW ADDRESS 



SAVE STATEMENT ADDRESS 



REFERENCE LOCATION IN TEMP3 
SKIP (A) LOCATIONS FROM TEMP3 

AND SAVE DESTINATION ADDRESS 
SKIP TO END OF STATEMENT BEING 

DELETED, SOURCE ADDRESS IN ( ti ) 
ALL OF PROGRAM MOVED? 
YES 
NO, MOVE (tORD FROM SOURCE TO 

DESTINATION ADDRESS 
INCREMENT DESTINATION ADDRESS 
INCREMENT SOURCE ADDRESS 



SET END-0F-PR06RAM 
POINTER 



PROGRAM SPACE OVERFLOW •• 
QVC 



;HK NOP 

LOB PBPTR 

STB TEMP2 

ADB 

STB TEMP4 

CHB,INB 

AOB LWBM 

SSB 

JMP FSCEF,! 

LDB TEMP4 

STB PBPTR 

JMP OVCHK,I 



(A) 



NEW WORD REQUIREMENT IN 
SET SOURCE ADDRESS 

FOR PROGRAM RELOCATION 
SET DESTINATION 

ADDRESS 
ENOUGH 

FREE 

SPACE? 
NO, PROGRAM SPACE OVERFLOW 
YES, RELOCATE FREE 

PROGRAM SPACE POINTER 



LIST PROGRAM 
PRE -EXECUTION PROCESSING 
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0004* 

000b* 

0006* 

0087* 

0(106* 

0b09 

0fel0 

0011 

0012 

0013 

0«}14 

0015 

0016 

0017 

0018 

0019 

0020 

0W21 

0022 

0i!)23 

0024 

0025 

0026 

0w27 

0028 

0029 

0>230 

0ii^31 

at 32 

0033 
0034 
Gjb35 
0t.^6 
0((''37 
0038 
0039 
0040 
00 41 
0ic]42 
0043 
0Ili44 
0045 
0046 
0047 
0048 
0049 
0050 
0091 
0052 
0053 
0054 
0055 
0056 
0057 



********************** 
*** *** 

** LIST THE PROGRAM *** 

*** *** 

********************** 



04572 

04S73 

04574 

04576 

04576 

W4577 

04600 

04601 

04602 

04603 

04604 

046)05 

04606 

04607 

04610 

04611 

04612 

04613 

04614 

04615 

04616 

04617 

04620 

04621 

04622 

04623 

04624 

04625 

04626 

04627 

04630 

04631 

04632 

04633 

04634 

04635 

04636 

04637 

04640 

04641 

04642 

04643 

04644 

04645 

04646 

04647 

04650 

04651 

04652 



064112 
074157 
0156U 
026607 
06«13l 
074135 
114216 
000463 
160131 
016513 
124205 
000000 
074157 
006400 
054136 
026614 
060373 
U4127 
064157 
054113 
027003 
003400 
040134 
070132 
002400 
070133 
160157 
017015 
060476 
015715 
034157 
160157 
003004 
002004 
071467 
034157 
035467 
026644 
064134 
060133 
114127 
026614 
160157 
010420 
002003 
026670 
070162 
001727 
001100 



LIST 



LIST0 



LISTl 



LISTS 



LIST2 



LIST4 



LDB 


PBUFF 


INITIALIZE TO FIRST 


STB 


TEMPS 


STATEMENT OF PROGRAM 


JSB 


6ETCR 


SEQUENCE NUMBER GIVEN? 


JMP 


LIST0 


NO 


LDB 


.BUFa 


YES, SET FOR 


STB 


SBPTR 


SEQUENCE NUMBER 


jse 


INCHK^I 


FETCH 


DEF 


MAXSN 


IT 


LDA 


.BUFA, I 


LOAD SEQUENCE NUMBER 


JSB 


FNDP8 


FIND INTIAL STATEMENT 


JMP 


ROYDAr I 




NOP 




SAVE 


STB 


TEMPS 


ADDRESS 


CLB 




HIGH-SPEED 


CP8 


TFLAG 


PUNCH? 


JMP 


LISTl 


NO 


LDA 


6133 


YES, EMIT 


JSB 


LISTKrI 


LEADER 


LDB 


TEMPS 


MORE 


CPB 


PdPTK 


PROGRAM? 


JMP 


LIS13 


NO 


CCA 




INITIALIZE 


ADA 


SBUFA 


OUTPUT BUFFER 


STA 


6AD0K 


POINTER 


CLA 




INITIALIZE 


STA 


CCNT 


CHARACTER COUNT 


LDA 


TEMPS, I 


OUTPUT 


JSB 


OUTIN 


SEQUENCE NUMBER 


LDA 


BLANK 


OUTPUT 


JSB 


OUTCK 


BLANK 


ISZ 


TEMPS 


FETCH 


LDA 


TEMPS,! 


STATEMENT LENGTH 


CMA, 


.INA 


SET 


INA 




MORD 


STA 


SLWsr 


COUNTER 


ISZ 


TEMPS 


MORE 


ISZ 


SLWST 


STATEMENT? 


JMP 


LIST4 


YES 


LDB 


SBUFA 


OUTPUT 


LDA 


CCNT 




JSB 


LISTR,I 


STATEMENT 


JMP 


LISTl 




LDA 


TEMPS, I 




AND 


0PM8K 




SZAi 


RSS 


NULL OPERATOR? 


JMP 


LISTS 


YES 


STA 


TEMP2 


NO, SAVE OPERATOR 


ALF, 


ALF 


SINGLE 


ARS 
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fc)i^56 

U061 
0062 

0fc65 

e;?'67 

0066 
0H69 
0070 
0071 
007i? 
0073 
0074 
0.^75 
0^76 
i&77 
0078 
0079 

008!^ 
0081 
00d2 
0f63 
0k,84 
0M8b 

0«^e6 

0087 
0088 
0089 
0090 
0lv91 
0b92 
0093 
0094 
0095 
0096 
00 97 
009B 
01^.99 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0U1 
0112 
0113 



04653 

04654 

04655 

04656 

04657 

04660 

04661 

04662 

04663 

04664 

04665 

04666 

04667 

04670 

04671 

04672 

04673 

04674 

04676 

04676 

04677 

04700 

047 51 

04702 

04703 

04704 

04705 

0470b 

04707 

04710 

04711 

04712 

04713 

04714 

04715 
04716 
04717 
04720 
04721 
04722 
04723 
04724 
04725 
04726 
04727 
04730 
04731 
04732 
04733 
04734 
04735 
04736 
04737 
04740 
04741 
04742 



064000 

040446 

002021 

026772 

005000 

006004 

044301 

160001 

001727 

010376 

050347 

027011 

015715 

16*4157 

010425 

070163 

010423 

072333 

002020 

026732 

002003 

026635 

050336 

026725 

040435 

002020 

026710 

003400 

072333 

06tfl63 

001727 

001700 

010374 

040363 

015715 

036333 

026635 

060163 

010336 

040353 

015715 

026635 

060365 

015715 

060371 

015715 

026710 

020470 

002102 

026751 

034157 

070153 

160157 

034157 

164157 

035467 



LISTS 



LIST6 



L1ST7 



LISTS 



LIST9 



LDB 


CHARACTER 


ADA M21 




SSArRSS 


OPERATOR? 


JMP LIS12 


NO 


BLS 


YES 


INB 


LOAD 


ADB F0P8S 


SYMBOL'S 


LDA Irl 


ASCII MORD 


ALFrALF 


ADJUST 


AND MSK0 


CHARACTER 


CPA ,34 


" ? 


JMP LIS14 


YES 


JSB OUTCR 


NO 


LDA TEMPS, I 




AND CPDMK 


SAVE 


STA TEMPS 


OPERAND 


AND TYPFL 


EXTRACT OPERAND TYPE 


STA LFLAQ 


SET LFLAG FALSE 


SSA 


FLAG BIT SET? 


JMP LIST9 


YES 


SZArRSS 


NO, NULL OPERAND? 


JMP L18T3 


YES 


CPA .15 


FUNCTION? 


JMP LISTS 


YES 


ADA M5 




SSA 


LETTER-DIGIT COMBINATION? 


JMP LIST7 


NO 


CCA 


YES, SET 


STA LFLA6 


LFLAG FALSE 


LDA TEMP3 




ALFrALF 


RESTORE AND 


ALF 




AND S177 


OUTPUT 


ADA B100 




JSB OUTC« 


LETTER 


I3Z LFLAO 


DIGIT F0LL0M8? 


JMP LIST3 


NO 


LDA TEMP3 


YES 


AND .15 


RESTORE 


ADA .43 


DIGIT 


JSB OUTCK 


OUTPUT DIGIT 


JMP LIST3 




LDA F 


OUTPUT 


JSB OUTCK 


•F' 


LDA N 


OUTPUT 


JSB OUTCK 


•N» 


JMP LIST7 




XOH FLGBT 




CLEfSZA 


NUMBER? 


JMP LIS10 


NO 


ISZ TEMPS 


YES 


STA SIGN 


SET SIGN FLAG FALSE 


LDA TEMPS, I 




ISZ TEMPS 




LDB TEMPS, I 




ISZ SLWST 
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0114 

0115 

0116 

0117 

0116 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

K138 

b\Z9 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

015>d 

01bl 

0152 

aib3 

0150 

0155 

0156* 

0157* 

01l>8* 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 



04743 

04744 

04745 

04746 

04747 

04750 

04751 

04752 

04733 

04754 

04755 

04756 

04767 

0476e) 

04761 

04762 

04763 

04764 

04765 

04766 

04767 

04770 

04771 

04772 

04773 

04774 

04775 

04776 

04777 

05000 

05001 

05002 

05003 

050>^4 

051535 

05006 

05007 

058110 

05011 

1^5012 

05013 

05014 



035467 

002020 

002300 

114220 

000000 

026635 

050326 

026765 

050336 

002001 

026703 

060163 

001722 

010420 

070162 

064322 

017077 

026635 

034157 

035467 

160157 

017015 

026635 

060476 

018715 

064307 

017077 

060415 

050162 

027056 

060476 

026667 

006400 

054136 

124205 

060373 

114127 

124205 

015715 

01/055 

060347 

026667 



* OUTPUT AM INTEGER 



05015 
05016 
05l^<17 
05020 
05021 
05022 
05023 
05024 
05025 
05026 
05027 



000000 
064434 
077522 
067132 
076351 
006400 
076556 
166351 
007004 
076513 
007400 



ISZ 
SSA 

CCE 
JSB 
NOP 
JMP 
LISi0 CPA 
JMP 
CPA 
RSS 
JMP 
LDA 
ALF 
AND 
STA 
LDU 
JSB 
JMP 

LISll ISZ 
IS2 
LDA 
JSB 
JMP 

LIS12 LDA 
JSB 
LDB 
JSB 
LDA 
CPA 
JMP 
LDA 
JMP 

LIS13 CLB 
CPB 
JMP 
LDA 
JSB 
JMP 

LIS14 JSB 

JSB 

LDA 

JMP 

* 

** 

* 

OUTIN NOP 
LDB 
STB 
LDB 
STB 
CLB 
STB 

OUTU LOB 
CMBr 
STB 
CCB 



SLWST 



NUMOArl 

LI8T3 
.9 

LISll 
.15 

LIST6 

TEMP3 
fRAL 
OPMSK 
TEMP2 
ATAB 
MCOUT 
LIST3 
TEMPS 
SLWST 
TEMPSrI 
OUTIN 
LIST3 
BLANK 
DUTCH 
STTYP 
MCOUT 
REMOP 
TEMP2 
OUTSl 
BLANK 
LIST5-1 

TFLAQ 

RDYOA,I 

B133 

LISTHrl 

RDYDAr I 

OUTCk 

OUTST 

.34 

LIST5-1 



NE6ATIVE NUM6ERT 
YES, SET SIGN FLAG 



TRUE 



M4 

DIGCT 
LOVSR 
DIVSR 

LOZRO 
OlVSRrI 
IN6 
MIND 



INTEGER? 
YES 

NO, FUNCTION? 
YES 

NO, MUST BE A PARAMETER 
COMPUTE 
PRINT 
TABLE 
CODE 
OUTPUT 

FUNCTION NAME 

OUTPUT 

INTEGER 

OPERAND 
OUTPUT 

BLANK 
OUTPUT 

OPERATOR 
WAS IT 

A REM? 
YES, OUTPUT REMARK 
NO, OUTPUT 

A BLANK 
HIGH-SPEED 

PUNCH? 
NO 
YES, EMIT 

TRAILER 



OUTPUT 
OUTPUT 
OUTPUT 



QUOTE STRING 



INTEGER IN (A) 
SET 

DIGIT COUNTER 
SET DIVISOR 

ADDRESS 
SET LEADING 

ZERO FLAG 
NEGATE 

AND STORE 
DIVISOR 
SET QUOTIENT 
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0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 

0181 

0182 

0189 

0184 

0185 

0166 

0187 

0188 

0189 

0190 

0191* 

0192. 

0193* 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 

0211 

0212* 

0213*< 

0214* 

021& 

0216 

0217 

0218 

0219 

0220 

0221 

0222 

0223 

0224 

0225 



05030 
05031 
05032 
05033 
05034 
05035 
05036 
05037 
05040 
05041 
05042 
05043 
05044 
05045 
05046 
05047 
05090 
050S1 
0O0!!2 
05053 
05094 



006004 
042513 
002021 
027030 
142351 
073077 
060001 
002002 
027043 
052556 
027046 
040357 
072556 
015715 
063077 
036351 
037522 
027024 
040357 
015715 
127015 



QUI 12 



0UTI3 



INB 
ADA 
SSA 
JMP 
ADA 
STA 
LOA 
SZA 
JMP 
CPA 
JMP 
ADA 
STA 
JSB 
LOA 
ISZ 
ISi 
JMP 
ADA 
JSB 
JMP 



OUTPUT A STRING 



* 



0505b 
05^56 
05m97 
0SkJ6l9 
05(^61 
0&«962 
05id6S 
05064 
05065 
06;366 
05067 
05070 
05071 
05k372 
05073 
05074 
05075 
05^76 



0010000 

160157 
010374 
002002 
015715 
034187 
035467 
00201(91 
026640 
160157 
001727 
010374 
050325 
127055 
050326 
12/055 
015715 
027056 



OUTST 
OUTSl 



NOP 
LDA 
ANU 
SZA 
JSB 
ISZ 
ISZ 
RSS 
JMP 
LDA 
ALF 
AND 
CPA 
JHP 
CPA 
JMP 
JSB 
JMP 



MIND 
rRSS 
• -3 

DIVSKrI 
MCOUT 
1 

0UTI2 

LDZRO 

0UTI3 

.48 

LDZRU 

OUTCR 

MCOUT 

DIVSH 

DI6CT 

OUTIl 

.48 

OUTCK 

OUTlNrI 



TEMPS,! 
B177 

OUTCR 
TEMPS 
SLMST 

LIST2 
TEMPS, I 
,ALF 
8177 
.2 

OUTSTrl 
.3 

OUTST, I 
OUTCK 
OUTSl 



LIST A MULTICHAKACTER SYMBOL 

05077 000000 MCCUT NOP 

051lde 160001 MCCUl LDA 1,1 

051fcl 010420 AND OPMSK 

0515?2 050162 CPA TEMP2 

05103 027112 JMP MC0U2 

0511^4 Ibbidiol LDA 1,1 

05105 010331 AND .7 

05106 040326 ADA .3 

05107 001100 ARS 

05110 044000 ADB 

05111 027100 JMP MCOUl 



TO ZERO 
SUBTRACT DIVISOR FROM INTEBER 
NEGATIVE RESULT? 
NO, INCREMENT QUOTIENT 
YES, RECOVER REMAINDER 

AND SAVE IT 

ZER07 
NO 

YES, LEADING ZERO? 
YES 

NO, COMPUTE ASCII FOR DIGIT 
SET 'ZEROES SIGNIFICANT* 
OUTPUT DIGIT 
RETRIEVE REMAINDER 
SET FOR NEXT DIVISOR 
DIVISION NECESSARY? 
YES 

NO, COMPUTE ASCII FOR LAST 
DIGIT AND OUTPUT IT 



• ENTRY POINT 
REM ENTRY POINT 
OUTPUT SECOND CHARACTER 
OF WORD IF 
NOT NULL 
BUMP POINTER 
REM COMPLETED? 
NO 
YES 
EXTRACT 

FIRST CHARACTER 
OF WORD 
EXIT 
IF A 

CLOSING 
QUOTE 
OUTPUT 

CHARACTER 



** 
* 



LOAD INFORMATION MORD 
COMPARE MITH 

OPERATOR CODE 
EQUAL 
UNEQUAL, 
COMPUTE 
ENTRY 
LENGTH 
COMPUTE ADDRESS OF 



NEXT ENTRY 
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0226 

0227 

0228 

0229 

0230 

0291 

0232 

0233 

0294 

0295 

0236 

0237 

0238 

0239 

0240 

0241 

0242* 

0243* 

0244 

0245 

0246 

0247 

0248 

0249* 

0250* 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 



05112 
0SU3 
05114 
05115 
05116 
05117 
05120 
05121 
05122 
05123 
05124 
05125 
05126 
05127 
05130 
05131 



05132 
05193 
05134 
05135 
05136 



160001 
010931 
009004 
073522 
006104 
074163 
160163 
002041 
001727 
010374 
015715 
002240 

034163 
037922 
027120 
127077 



005133 
023420 
001750 
000144 
000012 



03530 
04333 
00167 
04351 
04556 
04519 
04597 
04556 
04933 
04351 
04556 
k)4513 



MCCU2 LDA Ifl 
AND .7 
CHAr INA 
STA DIGCT 
CLErlNB 
STB TEMP3 

MC0U3 LDA TEMP9,I 
SEZrHSS 
ALFrALF 
AND B177 
JS6 OUTCR 
SElfCME 
ISZ TEMP3 
ISZ DIOCT 
JMP MC0U3 
JMP MCOUTrl 



LUVSR 



SFLA6 

TABLE 
LNGTH 
SMENO 
SLENG 
TBLPT 
TSFTK 
INTQK 
LFLA6 
DIVSR 
LD2R0 
MIND 



DEF 
DEC 
DEC 
DEC 
DEC 



EOU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



*♦! 
10000 

1000 

100 

10 



ARRY8 

PRGIN 

TEMPS*8 

INTCK 

OVCHK 

FNDP8 

CLPRG 

OVCHK 

PRGIN 

INTCK 

OVCHK 

FNDPS 



COMPUTE 
ENTRY 
LENGTH 

AND SAVE IT 
SET FOR FIRST CHARACTER 
SAVE SYMBOL ADDRESS 
LOAD MORD 
FIRST CHARACTER? 
YESf POSITION IT 
EXTRACT CHARACTER 
OUTPUT IT 

SET FOR NEXT CHARACTER 
MOVE TO NEXT WORD OF SYMBOL 
MORE CHARACTERS? 
YES 
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0264* 

0265* 

0266* 

0267* 

0268* 

0269* 

0270* 

0271* 

0272* 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 

0281 

0262 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304* 

0305 

0306 

0307 

0308 

0309* 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317* 

0318 

0319 



PHASE 2 OF THE COMPILER 



THIS PHASE HAS THE FOLLOWING 3 FUNCTIONSi 

1. i>YHBOL TABLE CONSTRUCTION 

2. FOR LOOP CHCCKINQ 

3. ARRAY STORASE ALLOCATION 



05137 

05140 

05141 

05142 

05143 

05144 

05145 

0S146 

05147 

05150 

05151 

05152 

05153 

05194 

05155 

05166 

05157 

05160 

05161 

05162 

051t)3 

05164 

05165 

05166 

03167 

05170 

05171 

05172 

05173 

05174 

05175 

05176 
05177 

05200 
05201 

09202 
05203 
05204 
05205 
05206 
05207 
09210 

05211 
09212 



060113 

050112 

124205 

070115 

060110 

070170 

060117 

070116 

060112 

070135 

164135 

074145 

064135 

034135 

144135 

075515 

034135 

160135 

001100 

001727 

010362 

070146 

050355 

027176 

050343 

074135 

050353 

074135 

003400 

070171 

027212 

060135 

0020i^.-4 
160000 
027161 

010401 
064135 
002003 
044325 
050326 
006004 
074135 

034135 
060135 



MFASt LOA 
CPA 
JMP 
STA 
LDA 
STA 
LOA 
STA 
LDA 
STA 

MLCPl LOB 
STB 
LOB 
ISZ 

Aoe 

STB 
ISZ 
LDA 
HLC10 ARS 
ALF 
AND 
STA 
CPA 
JMP 
CPA 
STB 
CPA 
STB 
CCA 
STA 
JMP 



PBPTR 

P8UFF 

RDYOAfl 

FCORE 

FWAM 

COML 

SYMTA 

SYMTF 

PBUFF 

MPTR 

MPTR,I 

.LNUH 

MPTR 

MPTR 

MPTR, I 

MNPTK 

MPTR 

MPTR, I 

,ALF 
.63 
TYPE 
.46 
ML012 
.30 
MPTR 
.43 
MPTR 

MMUNU 
ML0P2*1 



MLC12 LDA MPTR 
INA 

LDA 0,1 
JMP MLO10 

MLC13 AND MSKl 
LDB MPTR 
SZAfRSS 
ADB .2 
CPA .3 
INB 
STB MPTR 

MLCP2 ISZ MPTR 
LDA MPTR 



NULL 

PR08RAMT 
YES 
NO, SET FOR-TABLE POINTER 

INITIALIZE COMMON POINTER 

INITIALIZE SYMBOL TABLE POINTER 

INITIALIZE PROGRAM POINTER 

SET LINE NUMBER 



COMPUTE LOCATION OF NEXT 
STATEMENT AND STORE THIS 

FETCH THE FIRST WORD IN THE 
STATEMENT AND SAVE 
THE STATEMENT TYPE 



MAT STATEMENT? 

YES 

NO, REM STATEMENT? 

YES, SET TO SKIP IT 

NO, PRINT STATEMENT? 

YES, SET TO SKIP IT 

NO, SET 

•FIRST VARIABLE' 
FLAG 

SEEK 

SUBSIDIARY 
STATEMENT 
TYPE 

YES, ISOLATE OPERAND 
INDEX THE PROGRAM POINTER BY 
AN AMOUNT APPROPRIATE TO THE 
OPERAND, THE FOLLOWING APPLIES 
OPERAND ■ ADD 2 TO POINTER 
OPERAND «3 ADO 1 TO POINTER 



INCREMENT 
STATEHENT 



WORD-OF-STATEMENT PTR 



PAGE 13078 #05 PRE-EXECUTION PROCESSING 



0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

032S 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0336 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0356* 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0366* 

0369 

0370 

0371 

0372 

0373 

0374 

0375 



05213 

05214 

05215 

05216 

0S217 

05220 

05221 

05222 

05223 

05224 

05225 

05226 

05227 

05230 

05231 

05232 

05233 

05234 

05235 

05236 

05237 

03240 

05241 

05242 

05243 

05244 

05245 

09246 

05247 

05250 

05251 

05252 

05253 

05254 

05255 

05256 

05257 

05260 

05261 

05262 
05263 
05264 
05265 
05266 
05267 
05270 
05271 

05272 
05273 
05274 

05275 
05276 
05277 

05300 



051515 

027272 

160135 

002020 

027202 

010401 

002003 

027211 

070157 

010336 

050336 

027301 

040434 

002020 

027320 

060157 

114231 

006021 

027244 

060470 

064471 

070160 

074161 

060433 

017501 

064146 

061)157 

054347 

027261 

054346 

034171 

027211 

034115 

064115 

054116 

027511 

170115 

027211 

064115 
054113 
014477 
154115 
002001 
027263 
044431 
074115 
027211 

050113 
002001 
027151 
060146 
050350 
027407 
014477 



CPA 
JMP 
LOA 
SSA 

JHP 
AND 
8ZA 

JMP 
STA 
AND 
CPA 
JMP 
ADA 
SSA 
JMP 
LDA 
JSB 
SSB 
JMP 
LOA 
LDB 
STA 
STB 
LDA 
JSB 
MLCP3 LDB 
LDA 
CPB 
JMP 
CPB 
ISZ 
JMP 
ISZ 
LDB 
CPB 
JMP 
STA 
JMP 



MNPTR 
ML0P5 
MPTR,I 

HL013 
MSKl 
,RSS 
ML0P2 
MBOXl 
.15 
.15 
HL0P6 
M4 

ML0P7 
MBOXl 
SSYMArl 
,RSS 
ML0P3 
MNEO 
MNE64>1 
MBOXl-M 
MB0Xl*2 
M3 

ESYMT 
TYPE 
MbOXl 
.34 
ML0P4 
.33 
MMDNO 
ML0P2 
FCORE 
FCORE 
SYMTF 
MER8-1 
FCORErl 
ML0P2 



I1LCP4 LDB FCORfe 
CPB PBPTK 
JSB ERROK 

MEfi3 CPA FCORErl 
RSS 

JMP MER3-1 
ADB Ml 
STB FCORE 
JMP ML0P2 

MLCP5 CPA P8PTR 
RSS 

JMP MLOPl 

LDA TYPE 

CPA ,37 

JMP MILOP 

JSB ERROR 



EXHAUSTED? 
YES 
NO 

'CONSTANT' OPERAND? 
YES 
NO 

NULL OPERAND? 
YES 

NO, SAVE IT 
PROSRAMMER-DEFINED 

FUNCTION? 
YES 
NO 

ARRAY VARIABLE? 
YES 

N0» SIMPLE VARIABLE 
ALREADY IN 

SYMBOL TABLE? 
YES 
NO 
ENTER 

IT WITH 

•UNDEFINED' 
VALUE 



NEXT STATEMENT? 
YES 

NO, FOR STATEMENT? 
YES, FIRST VARIABLE? 
NO 

DEMAND 
SPACE 

FOR NEW 
ENTRY 
SAVE VARIABLE NAME 



FOR-TABLE 

EMPTY? 
YES 

NO, MATCH LATEST ENTRY? 
YES 
NO 
REMOVE 

MATCHED 
ENTRY 

PR08RAM EXHAUSTED? 

YES 

NO 

YES 

END STATEMENT? 

YES 

NO 
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0376 

0377 

0378 

037« 

0380 

0381 

0382 

0383 

0384 

U385 

03a6 

0387 

0388 

0369 

0390 

0391* 

0392 

0393 

0394 

0395 

0396 

0397 

0398 

0399 

040kl 

0401 

0402 

0403 

0404 

0405* 

0406 

0407 

0408 

0409 

0410 

0411 

04U 

0413 

0414 

0416 

0416 

0417 

0416 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

0428 

0429 

0430 

0431 



03301 
05302 
05303 
05304 
05305 
05306 
05307 
05310 
05311 
05312 
05313 
05314 
05315 
05316 
05317 

05320 
05321 
05322 
05323 
05324 
05325 
05326 
05327 
0^330 
0O<5^1 
05332 
05333 
05334 

05335 
05336 
05337 
05340 
05341 
05342 
iu5343 
05344 
0534R 
05346 
05347 
05350 
05351 
05352 
05353 
105354 
to5355 
05356 
05357 
05360 
05361 
05362 
05363 
05304 
05365 
05366 



160135 
010420 
050414 
002001 
027211 
060157 
114231 
006021 
014477 
060135 
04^326 
070160 
061^432 
017501 
027211 

070001 
060146 
050341 
027335 
050342 
027335 
017522 
027211 
002400 
070160 
070161 
070162 
027370 

034135 
(d34135 
160135 
001727 
054433 
027347 
034135 
034135 
130135 
002001 
030324 
070161 
070162 
002400 
070160 
017522 
027373 
060146 
050342 
002001 
027370 
060161 
015336 
064170 
074160 
0440140 



HLCP6 



MEK4 



MLCP7 



MLCP8 



LDA 
AND 
CPA 
RSS 
JMP 
LDA 

jse 



MPTR,I 

OPMSK 

DEFOP 



ML0P2 
MBOXl 
SSYMArl 

SSBrRSS 

JSB ERROK 

LDA MPTR 

ADA .3 

STA MBOXl+1 

LDA «2 

JSB ESYHT 

JHP ML0P2 



STA 
LDA 
CPA 
JMP 
CPA 
JMP 
JSB 
JMP 
CLA 
STA 
STA 
STA 
JMP 

ISZ 

ISZ 

LDA 

ALF, 

CPB 

JMP 

ISZ 

ISZ 

lOR 

RSS 

lOR 

STA 

STA 

CLA 

STA 

JSB 

JMP 

LDA 

CPA 

RSS 

JMP 

LDA 

JSB 

LOB 

STB 

ADB 



1 

TYPE 

.27 

ML0P8 

.28 

MLUP8 

MSYMT 

ML0P2 

MB0X14>1 
MB0X1*2 
MB0X14-3 
MLOPfcl 

MPTR 

MPTR 

MPTR, I 

ALF 

M3 

• ♦5 

MPTR 

MPTR 

MPTRrI 

.1 

MBOXl+2 
MB0XU3 

MSOXl^l 

MSYMT 

ML0P9 

TYPE 

.28 

MLOPe 

MB0X1^2 

MOIM 

COML 

MB0X14-1 





ISOLATE 

PRECEDING OPERATOR 
•DEF« ? 
YES 
NO 80 TO PROCESS NEXT WORD 
SEARCH SYMBOL TABLE FOR 
THE FUNCTION 

FOUND, ERROR MULTIPLY DEFINED 

ENTER THE FUNCTION INTO THE 

SYMBOL TABLE TOGETHER WITH 

ITS ENTRY POINT IN THE SOURCE 

CODE 

QO TO PROCESS THE NEXT WORD 



DIM 
YES 
NOr 
YES 
NO, 



STATEMENT? 
COM STATEMENT? 



IT IN SYMBOL TABLE 



LOOK FOR 
FOUND 
NOT THERE 
ENTER IT WITH 
DIMENSIONS AND 
DIMENSIONALITY 
UNDEFINED 

PROCESS COM OR DIM STMT 

PICK UP FIRST DIMENSION 

SHIFT TO M. S. PART OF WORD 

IS THIS A SINGLE DIMENSION ARRAY 

YES, JUMP 

NO, INDEX POINTER TO THE LOC. 

OF SECOND DIMENSION AND PACK 

INTO A WITH THE FIRST DIMENSION 



SET UP TO STORE PACKED 
DIMENSIONS IN FORMAL AND ACTUAL 

SLOTS AND UNDEFINED FLAG IN 
STORAGE ALLOCATION SLOT 

IN SYMBOL TABLE? 

NO 

YES 

IS STMT A COM 

NO, JUMP 

YES PICK UP PACKED DIMENSIONS 

COMPUTE STORAGE REQUIRED 

POINTER TO NEXT FREE LOC IN COM 

STORE IN STORAGE ALLOCATION SLOT 

UPDATE POINTER BY THE AMOUNT OF 
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0432 

0433 

0434 

0435 

0436* 

0437 

0436 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446 

0447 

0448 

0449* 

0450* 

0451* 

0452* 

0453* 

0454* 

0455* 

0456* 

0457* 

0458 

0459 

0460 

0461 

0462 

0463* 

0464 

0465 

0466 

0467 

0468 

0469 

0470 

0471 

0472 

0473 

0474 

0475 

0476 

0477 

0476 

0479 

0480 

0461 

0482 

0483 

0464 

0485 

0486 

0487 



05367 074170 
05370 060434 
09371 017501 
05372 027211 



05373 
05374 
05375 
B5376 
05377 
05400 
09401 
09402 
05403 
05404 
05405 
05406 



044325 
160001 
002002 
014477 
060146 
050342 
124270 
060161 
170001 
006004 
170001 
02/211 



094C!7 
05410 
05411 
09412 
05413 

09414 
05415 
05416 
09417 
05420 
05421 
05422 
05423 
05424 
05425 
05426 
09427 
09430 
09431 
09432 
09433 
09434 
09439 
09436 
09437 
09440 
09441 
09442 
09443 



060119 
050113 
002001 
014477 
064116 

054117 
027466 
16k)0tfl 
010336 
044325 
092)336 
027414 
006004 
040434 
002029 
027414 
002003 
014477 
002004 
070160 
074197 
1600(11 
002002 
027445 
063500 
034160 
040333 
1700(11 
044431 



STB COML 

MLCP0 LDA M4 

JSB E8YMT 

JMP MLOPa 



STORAOE ASSIGNED. 
ENTER THE FOUR WORD ENTRY 
PKEVIOUSLY SET UP IN HBOXl 
3VHB0L TABLE AND CONTINUE 



INTO 



MLCP9 



MER9 



ADB 
LDA 
SZA 
JSB 
LOA 
CPA 
JMP 
LDA 
8TA 
IN6 
STA 
JMP 



• 2 

If I 

ERROR 
TYPE 

28 
E8YN3»I 
MB0X1«2 
Ifl 

WI 

ML0P2 



CHECK THE FORMAL DIMENSIONS 
LOCATION TO SEE IF THE DIMENSION 

IS ALREADY DEFINED 
ERRORr DOUBLY DIMENSIONED 



COM STMT? 
ERROR MISPLACED 



COM STMT 



STORE THESE DIMENSIONS IN FORMAL 

AND ACTUAL SLOTS IN SYMBOL TABLE 

ENTRY 

60 TO PROCESS NEXT WORD 



THE SECTION WHICH FOLLOWS CHECKS 
THAT ALL FOR LOOPS HAVE BEEN 
TERMINATED* ASSI8NS THE STANDARD 
DIMENSIONS TO UNDIMEN810NED ARRAYS 
AND MAKES STORAGE ASSIGNMENTS FOR 
ALL ARRAYS WHICH DO NOT APPEAR IN 
A COM STMT 



MILOP 



i1Efi6 



M2L0P 



MEf;i0 



LDA FCORE 


ALL FORS 


CPA PBPTR 


MATCHED? 


RSS 


YES 


JSB ERROR 


NO 


LOB SYMTF 




CPB SYMTA 


MORE SYMBOLS? 


JMP M4L0P 


NO 


LDA 1,1 


YES 


AND .15 


ACCONT FOR 


ADB .2 


A FUNCTION 


CPA .19 


IS IT? 


JMP M2L0P 


YES 


INB 


NO, ACCOUNT FOR 


ADA M4 


SIMPLE VARIABLE 


SSAf INArRSS 


IS IT? 


JMP M2L0P 


YES 


SZA, RSS 


NO, # OF SUBSCRIPTS KNOWN 


JSB ERROR 


NO 


INA 


SAVE 


STA MB0X14-1 


FLAQ 


STB MBOXl 


SAVE POINTER 


LDA Ifl 


DEFINED 


SZA 


ARRAY? 


JMP M3L0P 


YES 


LDA STDIM 


NO, LOAD 


I8Z MB0X14.1 


APPROPRIATE 


ADA .9 


STANDARD DIMENSIONS 


STA Ifl 


RECORD AS 


ADB Ml 


FORMAL AND ACTUAL 
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0488 

0469 

0490 

0491 

0492 

0493 

0494 

0495 

0496 

0497 

0498 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506* 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0517* 

0518 



05444 
05445 
05446 
05447 
05490 
05451 
0545? 
05453 
05454 
05455 
05456 
05457 
05460 
05461 
05462 
05463 
05464 
03465 

05466 
05467 
05470 
05471 
05472 
05473 
05474 
05475 
05476 
05477 



170001 
015336 
070160 
064157 
044432 
160001 
002002 
027464 
060115 
170001 
040160 
070115 
00301^4 
040116 
002020 
014477 
044326 
027414 

064113 
054115 
124203 
060470 
170001 
006004 
060471 
170001 
006004 
027467 



M3L0P 



MER7 



H4L0P 



STA 
JS8 
STA 
LDB 
ADB 
LDA 
SZA 
JMP 
LDA 
STA 
ADA 
STA 
CHA 
ADA 
SSA 
JSB 
ADB 
JMP 

LDB 
CPB 
JMP 
LDA 
STA 
INB 
LDA 
STA 
INB 
JMP 



Irl 

MDIM 

MBOXK-l 

M80X1 

M2 

If I 

MER7 

FCORE 
Irl 

MB0X14-1 
FCORE 
,INA 
SVMTF 

ERROR 
.3 

M2L0P 

PBPTk 
FCORE 
FASE3,I 

MNEQ 

MNEG4>1 

Irl 
M4L0P+1 



DIMENSIONS 
SAVE STORAGE 

REQUIREMENT 
LOAD 

ADDRESS OF 

FLEMENT SPACE 
DEFINED IN COM? 
YES 
NO, USE CURRENT 

FREE-CORE ADDRESS 
UPDATE FREE-CORE 

ADDRESS 
OUT 

OF 

SPACE? 
YES 
NO, ADVANCE POINTER 

TO NEXT ENTRY 

INITIALIZE ALL 
ARRAY ELEMENTS 
TO 'UNDEFINED' 



05500 005001 STCIM OCT 5001 
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0520* 

0521* 

0b22* 

0b23* 

0524* 

0525* 

0526* 

0627 

0526 

0529 

0b3b 

0531 

0532 

0533 

0534 

0535 

0536 

0837 

0536 

0539 

k>540 

0541 

0542 

0543 

0544* 

0545* 

0546* 

0647* 

0548 

0549 

0550 

0551 

0552 

0553 

0554 

0555 

0556 

0557 

0556 

0559 

0560 

0561 

0562 

0563 

0564 

0565* 

0566* 

0567 

0568 

0569 

0570 

0571 

0572 

0573 

0574 

0575 



055141 
035C!2 
1^5503 
05504 
05505 
05506 
056«57 
05510 
05511 
1^5512 
05513 
05514 
05S15 
05516 
05817 
05920 
05521 



05522 
05523 
05524 
05525 
05526 
05527 
05530 
05531 
03532 
05533 
05534 
05536 
05536 
05537 
05640 
05541 
05542 



05543 
00157 
01467 
01536 
00136 
01516 
00170 
00171 
05522 



ENTER SYMBOL TABLE SUBROUTINE 

***************************** 

TRANSFER -(A) »<ORDS FROM THE BUFFER ADDRESSED 
BY MBUF TO THE TOP OF THE SYMBOL TABLE, 



000000 
071467 
040116 
070116 
071536 
0030104 
040U5 
002021 
014477 
06/543 
160001 
171536 
006004 
035536 
035467 
027513 
127501 



ESVMT 



NOP 
STA 
ADA 
STA 
STA 
CMAf 



MBINI 
SYMTF 
8YMTF 
MBIN2 
INA 



MER8 



ADA FCORE 
SSAfRSS 
JSB ERROR 
MBUF 

Irl 

MBIN2,I 



LDB 
LDA 
STA 
INB 
ISZ 
ISZ 
JMP 
JMP 



SAVE NEGATIVE OF LENGTH OF ENTRY 

MOVE SYMBOL TABLE START LOCATOR 
UP BY THE LENGTH OF ENTRY 
CHECK THAT THE SYMBOL TABLE AND 
FOR TABLE DO NOT OVERLAP 

OVERLAP ERROR 
POINTEK TO RE8D ENTRY 
TRANSFER ENTRY TO THE SYMBOL 
TABLE 



HBIN2 
MBINl 
MER6*l 
ESYMTr I 



RETURN 



********************************************** 
SUBROUTINE TO SEARCH SYMBOL TABLE FOR AN ARRAY 



000000 
075467 
060157 
114231 
006021 
127522 
035467 
0020(01 
027541 
035467 
040325 
040431 
114231 
006021 
014477 
037522 
127522 



000157 



MSYMT NOP 

STB MBINl 
LDA MBOXl 
JSB SSYMAfI 
SSBfRSS 
JMP MSYMT, I 
MBINl 



ISZ 
RSS 
JMP 
ISZ 
ADA 
ADA 
JSB 



MSYM 



MBliF 

MBCXl 

MBINl 

MBIN2 

MPTR 

MNPTK 

COfL 

MWENO 

0I6CT 



MSYM 
MBINl 
.2 
Ml 

SSYMAf I 
SSBfRSS 

JSB ERROR 
ISZ MSYMT 
JMP MSYMTrl 



B GIVES ARRAY TYPE -3 ■ 1 DIM, 
-2 « 2DIMr -1 " UNDIMENSIONED 
LOAD IDENTIFIER 
SEARCH SYMBOL TABLE 

FOUND, RETURN 

IF ARRAY UNDIMENSIONED 

JUMP TO NOT FOUND EXIT 
SET up TO CHECK THAT ARRAY DOES 
NOT APPEAR IN THE TABLE WITH 
DIFFERENT DIMENSIONS. CHANGE 

TYPE 2 TO I t TYPE I TO 2 AND 
SEARCH AGAIN 

FOUND, INCONSISTENT DIMENSIONS 
NOT FOUND, INCREMENT RETURN 
ADDRESS AND RETURN 



DEF 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



TEMPS 

TEMPS 

SLMST 

RSCHK 

8BPTR 

OPCHK 

TEMPS*9 

TEMPS*10 

MSYMT 



EXECUTE THE PROGRAM 
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0002* 












00B3*** 






**• 




0004** EVALUATE A 


FORMULA ** 




0005*** 






*** 




0006* 












0007 


05544 


000000 


FORMX 


NOP 


FORMULA BEGINS IN (TEMPS) 


0ki08 


05545 


006400 




CL8 


INITIALIZE OPERATOR 


0009 


05546 


015467 




JSB SLWST 


STACK 


0010 


05547 


160157 


FORMl 


LDA TEMPS, I 


FETCH OPERAND 


0011 


05550 


034157 




ISZ TEMPS 


SET FOR NEXT WORD OF FORMULA 


0012 


05551 


010425 




AND OPDMK 


EXTRACT OPERAND 


0013 


05552 


070165 




STA TEMPS+6 


AND SAVE IT 


0014 


<}5553 


002003 




SZArRSS 


NULL OPERAND? 


0015 


05554 


027567 




JMP F0RM2 


YES 


0016 


055S5 


015476 




JS« BHSTP 


SET STACK FOR OPERAND ADDRESS 


0017 


05556 


002020 




SSA 


FLAG BIT SET? 


0018 


05557 


027636 




JMP F0RM4 


YES 


0019 


05560 


114231 




JS8 SSyilArl 


FETCH OPERAND ADDRESS 


0020 


05561 


006007 




INefSZBrRSS 


EXISTANT? 


0021 


05562 


124267 




JMP E8M1A,I 


NO 


0022 


05563 


010336 




AND .15 


YES 


0023 


05564 


05if)336 




CPA ,15 


FUNCTION? 


0024 


05565 


027651 




JMP F0RM6 


YES 


0025 


05566 


174142 




STB MSTPTrl 


NO, STACK OPERAND ADDRESS 


0026 


05567 


160157 


F0fiM2 


LDA TEMPS,! 


FETCH 


0027 


05570 


010420 




AND OPMSK 


OPERATOR 


0028 


05671 


001727 




ALFrALF 


POSITION IT 


0029 


05572 


064000 




LDB 


LOAD ADDRESS OF 


0ld30 


05673 


044301 




AOB FOPBS 


OPERATOR'S INFORMATION WORD 


0031 


05574 


040440 




ADA M8 


NON-FORMULA 


0032 


05575 


00202^0 




SSA 


OPERATOR? 


0033 


05576 


006400 




CL6 


YES 


0034 


05577 


040451 




ADA D53 


NO, NUN-FORMULA 


0035 


05600 


002021 




SSA/RSS 


OPERATOR? 


0036 


05601 


006400 




CLB 


YES 


0037 


05602 


002400 




CLA 


NO 


0038 


05603 


160001 




LDA 1,1 


LOAD INFORMATION WORD 


0U39 


05604 


010401 




AND MSKl 


SAVE 


0040 


05605 


070166 




STA TEMPS*7 


PRECEDENCE 


0041 


05606 


120001 




XOR 1,1 


SAVE 


0042 


05607 


001100 




ARS 




0043 


05610 


070165 




STA TEMP8+6 


IDENTIFICATION 


0044 


05611 


027617 




JMP FORll 




0045 


05612 


170140 


FORM0 


STA TSTPT,! 


STACK HIGH WORD 


0046 


05613 


060140 




LDA TSTPT 


STACK OPERAND 


0047 


09614 


170142 




STA HSTPT,! 


ADDRESS 


0048 


05615 


002004 




INA 


STORE 


0(149 


05616 


174000 




STB 0,1 


LOW WORD 


0050 


05617 


160141 


FORI! 


LDA LSTPT,! 


DOES OPERATOR 


0051 


05620 


010376 




AND MSK0 


ON TOP OF 


0052 


05621 


003000 




CMA 


OPERATOR STACK 


0053 


05622 


040166 




ADA TEMPS*7 


HAVE HIGHER 


0054 


05623 


002020 




SSA 


PRECEDENCE? 


0055 


05624 


027751 




JMP F0RM9 


YES, EXECUTE IT 


0056 


05625 


002001 




RSS 


NO 


0057 


05626 


034141 


FOR10 


ISZ LSTPT 
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0056 
0059 
0060 
0fci61 
0C)62 
0063 
0064 
0065 
0066 
0067 
0066 
0069 
0^70 
0071 
0072 
0073 
0074 
0075 
0076 
9977 
0076 
0079 
0060 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0000 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 



05627 
05630 
05631 
05632 
05633 
05634 
05635 
05636 
05637 
05640 
05641 
05642 
09643 
09644 
05645 
05646 
05647 
09690 
05651 
09652 
09693 
09694 
05655 
09656 
05657 
05660 
05661 
05662 
05663 
09664 
09665 
0S666 
05667 
05670 
09671 
09672 
09673 
09674 
09676 
05676 
09677 
09700 
09701 
05702 
09703 
09704 
09709 
09706 
09707 
09710 
09711 
09712 
09713 



064166 
044444 
006020 
044336 
044165 
01d467 
027547 
050470 
027645 
010336 
050336 
027726 
064170 
027566 
064157 
034197 
034157 
027966 
074169 
064140 
015467 
164165 
015467 
063544 
170142 
017944 
0341&7 
034157 
060157 
164141 

074157 
170141 
064170 
16C«142 
034141 
034142 
174141 
070170 
050140 
015536 
017544 
160141 
070170 
060141 
040433 
070141 
002004 
164000 
074140 
002004 
164000 
074157 
015505 



LDB 
ADS 
8SB 
ADB 
ADB 
JSB 
JMP 

K0RM4 CPA 
JMP 
AND 
CPA 
JMP 
LOB 
JMP 

F0SM5 LDB 
ISZ 
ISZ 
JMP 

F0RM6 STB 
LDB 
JSB 
LDB 
JSB 
LDA 
STA 
JSB 
ISZ 
ISZ 
LDA 
LDB 
STB 
STA 
LDB 
LDA 
ISZ 
ISZ 
STB 
STA 
CPA 
JSB 
JSB 
LDA 
STA 
LDA 
ADA 
STA 
INA 
LOB 
STB 
INA 
LDB 
STB 
JSB 



TEMPS*7 
M19 

.19 

TEMPS+6 

SLWST 

FORMl 

FLQ8T 

F0RM5 

.15 

.15 

F0RM7 

TEMPS+9 

F0RM2->i 

TEMPS 

TEMPS 

TEMPS 

F0RM2-1 

TEMP8+6 

TSTPT 

SLWST 

TEMPS*6,I 

SLWST 

FORMX 

HSTPTrl 

FORMX 

TEMPS 

TEMPS 

TEMPS 

LSTPT,I 

TEMPS 

LSTPTfl 

TEMP8*9 

HSTPTrl 

LSTPT 

HSTPT 

LSTPTrl 

TEMPS*9 

TSTPT 

RSCHK 

FORMX 

LSTPT, I 

TCMPS*9 

LSTPT 

M3 

LSTPT 

TSTPT 

0fl 

TEMPS 

8TT0P 



RETRIEVE PRECEDENCE 
NO, LEFT PARENTHESIS 

OR LEFT BRACKET? 
NO, RESTORE PRECEDENCE 
COMBINE IDENTIFICATION 

WITH PRECEDENCE AND STACK 

CONSTANT? 

YES 

NO, PRE-DEFINED 

FUNCTION 

YES 

NO, MUST BE A 

PARAMETER 
LOAD CONSTANT ADDRESS 
HOVE POINTER TO 

NEXT CODE MORD 

SAVE SYMBOL TABLE POINTER 
SAVE CURRENT POINTER 
TO TEMPORARY STACK 

SAVE FUNCTION ADDRESS 
SAVE CURRENT 

FORMX RETURN ADDRESS 
EVALUATE THE PARAMETER 
UPDATE FORMULA POINTER 

PAST RI6HT PARENTHESIS 
SNITCH 

FORMULA POINTER 
TO FUNCTION'S 
FORMULA 
SET 

PARAMETER POINTER 
TO NEW PARAMETER, 
SAVING PREVIOUS 
SETTING ON 

LOM-CORE STACK 
PROTECT PARAMETER IF 
ON TEMPORARY STACK 
EVALUATE FUNCTION 
RESTORE OLD 

PARAMETER POINTER 
CUT RACK 
LOm-CORE 
STACK 
RESTORE ORIGINAL 
TEMPORARY STACK 
POINTER 
RESTORE 
ORIGINAL 

FORMULA POINTER 
POP RESULT 
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0112* 

0113* 

0114* 

0115 

(0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0136 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0146 

0149 

0150 

0151 

0152* 

0153* 

0154* 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 



ALF,ALF 
ALF 



* PRE-DEFINED FUhCTlONS RETURN 

05714 170140 F0R12 8TA T8TPT,I 

BS715 060140 LDA TSTPT 

05716 002004 INA 

05717 174000 8TB 0^1 

05720 034142 ISZ H8TPT 

05721 164142 LD8 H8TPT,I 

05722 077544 STB FORMX 

05723 040431 ADA Ml 

05724 170142 STA H8TPT,I 

05725 027567 JMP F0RM2 

05726 06*165 F0fiM7 LDA TEMPS+6 

05727 001727 

05730 001700 

05731 0U344 AND .31 

05732 040305 ADA PDFBS 

05733 164000 LDB 0fl 

05734 015467 JS8 SLWST 

05735 063544 LDA FORMX 

05736 170142 STA HSTPT,! 

05737 017544 JSB FORMX 

05740 034167 182 TEMPS 

05741 034157 182 TEMPS 

05742 164141 LDB LSTPTfl 
0574? 003400 CCA 

05744 040141 ADA L5TPT 

05745 070141 STA LSTPT 

05746 077501 STB ESYMT 

05747 015505 JSB 8TT0P 

05750 127501 JMP ESYMT, I 

05751 160141 F0RM9 LDA LSTPT,! 

05752 007400 CC6 

05753 044141 ADB LSTPT 

05754 074141 STB LSTPT 
05756 001727 ALF, ALF 

05756 010374 AND B177 

05757 040304 ADA ARBAS 
05760 124000 JHP 0,1 






EXECUTION BRANCH TABLE ** 



05761 
05762 
05763 
05764 
05765 
05766 
05767 
05770 
05771 
05772 
05773 
05774 
05775 



006203 
006044 
006044 
006044 
006044 
006205 
006210 
006216 
006312 
006353 
006364 
100205 
100205 



XECTB 



DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 



ELET 

XEC4 

XEC4 

XEC4 

XEC4 

EGOTO 

EIF 

EFOR 

ENEXT 

E008B 

ERTRN 

RDYDA,! 

RDYOA,I 



HERE WITH RESULT 

STORE HIGH MORD 

STORE 

LOW WORD 

RESTORE FORMX 

RETURN ADDRESS 
STACK ADDRESS 

OF RESULT 

COMPUTE 

FUNCTION 

ADDRESS 

SAVE FUNCTION ADDRESS 
SAVE CURRENT 

FORMX RETURN ADDRESS 
EVALUATE THE PARAMETER 
UPDATE FORMULA POINTER 

PAST RIGHT PARENTHESIS 
POP 

FUNCTION 
ENTRY 

ADDRESS 
SAVE 

POP PARAMETER 
EVALUATE FUNCTION 
UNSTaCK 
OPERATOR 

INFORMATION 
WORD 
COMPUTE 

SUBROUTINE 
ADDRESS 
EXECUTE 



LET 

DIM 

COM 

DEF 

REM 

GO TO 

IF 

FOR 

NEXT 

OOSUB 

RETURN 

END 

STOP 
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0168 


05776 


006373 




DEF 


EMAIT 


WAIT 


0169 


05777 


006412 




OEF 


ECALL 


CALL 


0170 


06000 


006044 




DEF 


XEC4 


DATA 


0171 


06001 


006441 




DEF 


EREAD 


READ 


0172 


06002 


006474 




DEF 


EPRIN 


PRINT 


0173 


06003 


006643 




DEF 


EINPT 


INPUT 


0174 


06004 


006656 




DEF 


ERSTR 


RESTORE 


0175 


06005 


011456 




DEF 


EMAT 


MAT 


0176* 














0177i» 






0178**** 






\ 


fk«* 




0179*** EXECUTE THE PROGRAM 


**• 




0180**** 






\ 


k*4t 




0181* 






0182* 














0183** 












0184***INITIALiZE FOR OUTPUT 


** 




0185** 












0186 


06006 


002400 


XEC 


CLA 




SET COUNTER FOR 


0187 


060IJ7 


070146 




STA 


TYPE 


CHARACTERS OUTPUTTED 


0188 


06010 


070155 




STA 


XM 


INITIALIZE 


0189 


06011 


002004 




INA 




RANDOM 


0190 


06012 


070156 




STA 


XL 


VARIABLE 


0191** 












0192*** INITIALIZE 


THE DATA f 


»OINTER 


«* 


0193** 












0194 


06013 


003400 




CCA 




SET 


0195 


06014 


070151 




STA 


DCCNT 


•NO 


0196 


06015 


070147 




STA 


DSTRT 


DATA' 


0197 


06016 


064112 




LDB 


PBUFF 


CONDITION 


0198 


06017 


074150 




STB 


NXTDT 




0199 


06020 


160315 




LDA 


AOATAfl 


SEARCH FOR FIRST 


0200 


06021 


016105 




JSB 


STSRH 


DATA STATEMENT 


0201 


06022 


026025 




JMP 


XEC2 


NONE FOUND 


0202 


06023 


074147 




STB 


DSTRT 


SAVE STATEMENT LOCATION 


0203 


06024 


016074 




JSB 


SETDP 


SET DATA POINTER 


0204** 












0205*** INITIALIZE 


STACK 


POINTERS ** 




0206** 












0207 


06U25 


064116 


XEC2 


LDB 


SYMTF 


INITIALIZE 


0208 


06026 


074142 




STB 


HSTPT 


POINTERS TO 


0209 


06(^27 


064115 




LDB 


FCORE 


'HIGH CORE' STACK, 


0210 


0603e 


074140 




STB 


TSTPT 


•TEMPORARY' 


0211 


06031 


044337 




AOB 


.23 


STACKr AND 


0212 


06032 


074120 




STB 


LSTAK 


•LOW CORE' 


0213 


06033 


074141 




STB 


LSTPT 


STACK 


0214 


06034 


007000 




CM8 




DO 


0215 


06035 


044142 




ADB 


HSTPT 


STACKS 


0216 


06036 


006020 




SSB 




MEET? 


0217 


06037 


025473 




JMP 


El 


YES 


0218 


06040 


064426 




LDB 


RHODE 


NO, SHIFT TO 


0219 


06041 


074127 




STB 


LISTR 


RUN MODE 


0220 


06042 


064112 




LDB 


PBUFF 


BEGIN 


0221 


06043 


026054 




JMP 


XEC5 


EXECUTION 
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0223** 








0224*** FIND NEXT 


STATEhENT TO BE EXECUTED ** 


0225** 








0226 06044 060144 


XEC4 


LDA NXTST 


NEXT STATEMENT NUMBER 


0227 06045 064143 




LDB PRADD 


PROSPECTIVE ADDRESS 


0228 06046 150001 




CPA 1,1 


DESIRED STATEMENT? 


0229 065547 026055 




JMP XEC6 


YES 


0230 06050 064112 




LDB PBUFF 


NO, FIND 


0231 06051 114213 




JS8 FNDPArl 


STATEMENT 


0232 06052 0001^00 




NOP 


NON-EXISTENT 


0233 06(053 014477 




JSe ERROR 


STATEMENT 


0234 06054 160001 


XEC5 


LOA Ipl 


SAVE NEN 


0235 06^55 070145 


XEC6 


STA .LNUM 


SEQUENCE NUMBER 


0236** 








0237*** SET SUCCESSOR STATEMENT •* 




0238** 








0239 06056 016147 




JSB FLW8T 




0240 060S7 810420 




AND OPMSK 


EXTRACT STATEMENT TYPE 


0241 06060 001727 




ALFfALF 


POSITION 


0242 06061 001300 




RAR 


IT 


0243 06062 040303 




ADA XECBR 


COMPUTE EXECUTION ADDRESS 


0244 06063 124000 




JMP 0,1 


BRANCH TO EXECUTION CODE 


0245** 








0246*** EVALUATE FORMILA 


AND RETURN RESULT ** 


0247** 








0248 06064 000000 


FETCH 


NOP 




0249 06065 114233 




JSB FORMA, I 


EVALUATE FORMULA 


0250 i06v)66 015515 




JSB OPCHK 




0251 06067 034142 




ISZ HSTPT 


UNSTaCK RESULT ADDRESS 


0252 06070 160001 




LDA 1,1 


LOAD (A) MITH HIGH MANTISSA 


0253 06071 006004 




IN8 


LOAD LOH PART 


0254 061^72 164001 




LDB 1,1 


OF RESULT INTO (8» 


0255 06(473 126064 




JMP FETCH, I 


EXIT 


0266** 








0257*** SET POINTER TC START OF DATA 


STATEMENT •* 


0258** 








0259 06074 000000 


SETDP 


NOP 


STATEMENT ADDRESS IN (B) 


0260 06^75 006004 




INB 


LOAD 


0261 06v)76 160001 




LOA 1,1 


STATEMENT LENGTH 


0262 06077 003004 




CMA,INA 


SET 


0263 06100 002004 




INA 


DATA COUNTER 


0264 06101 070151 




STA DCCNT 


TO 1-STATEMENT LENGTH 


0265 06102 006004 




INB 


SET 'NEXT DATA* POINTER ONE 


0266 06103 074150 




STB NXTDT 


NORD ABOVE FIRST CONSTANT 


0267 06104 126074 




JMP SETDP, I 




0268** 








0269*** SEARCH FOR 


STATEMENT OF OIVEN 


TYPE •* 


0270** 








0271 06105 000000 


STSRH 


NOP 


TYPE IN <A), ADDRESS IN (B) 


0272 06106 010420 




AND OPMSK 


EXTRACT 


0273 06107 070164 




STA TEMP4 


STATEMENT TYPE 


0274 06110 060f901 


STSRl 


LDA 1 


EXTRACT 


0275 06111 040325 




ADA .2 


PROGRAM 


0276 06112 160000 




LDA 0,1 


STATEMENT 


0277 06113 010420 




AND OPMSK 


TYPE 


0278 06114 050164 




CPA TEMP4 


DESIRED TYPE? 
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B279 

0260 

0281 

0282 

0283 

0284 

0285 

0286 

0287 

0288* 

0289* 

0290* 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308* 

0309* 

0310* 

0^11 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323* 

0324* 

0325* 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 



06115 026124 

06116 060001 

06117 002004 

06120 144000 

06121 054113 

06122 126105 

06123 026U0 

06124 036105 STS 

06125 126105 
* 

** FETCH A DATA ITEM *• 



JMP 8T8R2 
IDA 1 
INA 

ADS 9,\ 
CPB P8PTR 
JMP STSRHrl 
JMP STSRl 
R2 ISZ STSRH 
JMP STSRH,! 



06126 000000 FDATA NOP 

06127 034151 FDATl 182 DCCNT 

06130 026137 JMP FDAT2 

06131 160315 LDA AOATA,! 

06132 064150 LOB NXTDT 

06133 016105 JSB STSRH 

06134 014477 JSB ERROR 

06135 016074 E4 JSB SETDP 

06136 026127 JMP FDATl 

06137 034151 FDAT2 ISZ DCCNT 

06140 034131 132 DCCNT 

06141 034150 ISZ KXTDT 

06142 160150 LDA NXTDTfl 

06143 0341&0 IS2 NXTDT 

06144 164150 LD8 NXTDTrl 
06146 034150 IS2 NXTDT 
06146 126126 JMP FDATA,! 



06147 000000 FLI^ST NOP 

06150 060001 LOA 1 

06151 002004 INA 

06152 163000 LDA 0,1 

06153 040001 ADA 1 

06154 071*143 STA PRADD 

06155 160000 LUA 0,1 

06156 070144 STA NXTST 

06157 044325 ADB .2 

06160 074157 STB TEMPS 

06161 160001 LDA 1,1 

06162 126147 JMP FLWST,I 



YES 

NO, FETCH 

STATEMENT LENGTH 
COMPUTE NEW ADDRESS 
PAST LAST STATEMENT? 
YES 
NO 



MORE DATA? 

YES 

NO, SEARCH 

FOR NEXT 

DATA STATEMENT 
NONE FOUND 
!N!T1AL!2E THE 

DATA POINTERS 
UPDATE 

POINTER 

LOAD 
DATA 
ITEM 
UPDATE POINTER 



** SET FOR FOLLOk^ING STATEMENT ** 



(B) HOLDS PRESENT ADDRESS 
COMPUTE 
ADDRESS 
OF 

NEXT 

STATEMENT 
RECORD THE 

SEQUENCE NUMBER 
FETCH 

FIRST WORD 
OF CURRENT 
STATEMENT 



** SEARCH STACK FUR GIVEN FOH-VARIABLE •• 
* 

06163 000000 FVSRH NOP 

06164 160157 LDA TEMPS,! FETCH 

06165 010401 AND MSKl FOR-VARIABLE 

06166 071656 STA EDELM SAVE FOR-VARIABLE 

06167 114231 JSB SSYHA,I FIND ADDRESS IN 

06170 006004 INB SYMBOL TABLE 

06171 060142 LDA HSTPT SAVE 

06172 07kJl63 STA TEMP3 STACK TOP 

06173 050116 FV8RI CPA 8YMTF STACK BOTTOM? 
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0335 


06174 


126163 




JMP 


FVSRHfl 


YES, EXIT VIA (P+1) 


0336 


06175 


154000 




CPB 


0,1 


MATCHING FOR-VARIABLE? 


0337 


06176 


026201 




JMP 


FVSR2 


YES 


0338 


06177 


040330 




ADA 


.6 


NO, MOVE TO 


0339 


06200 


026173 




JMP 


FVSRl 


NEXT STACK ENTRY 


0340 


06201 


036163 


FVSR2 


ISZ 


FVSRH 


EXIT 


0341 


06202 


126163 




JMP 


FVSRHrl 


VIA (P*2) 


0342* 














0343*** 




*** 








0344** EXECUTt LET 


** 








0345*** 




*** 








0346* 














0347 


06203 


114233 


ELET 


JSB 


FORMA, I 




k}348 


06204 


026044 




JMP 


XEC4 




034^* 














0350*** 




« ** 








0351** EXECUTE GO 


TO ** 








0352*** 




*** 








0353* 














0354 


06205 


006004 


EOCTO 


INB 




LOAD SEQUENCE 


035b 


062136 


160001 




LDA 


If I 


NUMBER 


0356 


062i!l7 


026045 




JMP 


XEC4*l 


FIND REFERENCED STATEMENT 


0357* 














0358*** 




*** 








0359** EXFUUTt IF 


** 








0360*** 




*** 








0361* 














0362 


06210 


114232 


EIF 


JSB 


FETCA,! 


FETCH VALUE OF FORMULA 


0363 


06211 


002003 




SZAi 


rRSS 


RESULTANT TRUE? 


0364 


06212 


026044 




JMP 


XEC4 


NO 


0365 


06213 


034157 




ISZ 


TEMPS 


YES, BRANCH TO 


0366 


06214 


064157 




LDB 


TEMPS 


FOLLOWING 


0367 


06215 


026205 




JMP 


EGOTU 


SEQUENCE NUMBER 


0368* 














03b9*** 




*** 








037W** EXECUTE FOR 


*« 








0371*** 




**« 








0372* 














0373 


06216 


016163 


EFCR 


JSB 


FVSRH 


FOR-VARIABLE ALREADY IN STACK 


0374 


06217 


026230 




JMP 


EFORl 


NO 


0375 


06220 


070162 




STA 


TEMP2 


YES, SAVE SOURCE ADDRESS 


0376 


06221 


040330 




ADA 


.6 


SAVE 


0377 


06222 


070164 




STA 


TEMP4 


DESTINATION ADDRESS 


0378 


06223 


074161 




STB 


TEMPI 


SAVE FOR-VARIABLE ADDRESS 


0379 


06224 


014554 




JSB 


MVTOH 


COMPRESS STACK 


0380 


06225 


064161 




U06 


TEMPI 


RESTORE FOR-VARIABLE ADDRESS 


0381 


06226 


002400 




CLA 




COMPUTE 


1)382 


06227 


002401 




CLA. 


rRSS 


COMPUTE 


0363 


06230 


06^1436 


EFCRl 


UOA 


H6 


NEW TOP OF 


^354 


06231 


04/142 




ADA 


H8TPT 


FOR-STACK 


0385 


06232 


070142 




STA 


HSTPT 


POINTER 


0386 


06233 


07i(5161 




STA 


TEMPI 




0387 


06234 


003004 




CMA, 


rINA 


STACK 


0388 


06235 


040141 




ADA 


LSTPT 




U369 


06236 


002021 




SSAi 


rRSS 


OVERFLOW? 


0390 


06237 


025473 




JMP 


El 


YES 
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035vT 
03v4 
0J95 

0397 
03^6 
0399 

J4^1 

04d3 

04«)4 

0405 

040b 

0407 

0408 

0409 

0410 

0411 

k;4l2 

0413 

0414 

ti4l5 

0416 

•J417 

0418 

6419 

0420 

0421 

042^ 

0423 

C424 

0425 

0426 

£427 

0428 

0429 

e>430 

0431 

0432 

0433* 

0434««* 

043S«* 

043b*** 

b437* 

ki438 

0439 

0440 

u44l 

0442 

0443 

0444 

044% 

0446 



06:^40 

.()6?4? 
06243 
06244 
06245 
06246 
06247 

062'ol 
»''6232 
06253 
36254 
»3625b 
06256 
06297 
0626e 
06261 
06262 
06263 
06264 
06265 
.•6266 
•J6?57 
«5627e 
5^6271 
^6272 
^6273 
06?74 
06275 
06276 
^6277 
06300 
063i3l 
^63^2 
063<i3 
1^63(54 
06305 
063^6 
063i;7 
06310 
06311 



1/4161 
114233 
034157 
V 34 1ol 
0b*:il'5 1 
072340 
114242 
170161 
1^34161 
174101 
034101 
064432 
076126 
160157 
002002 
026263 
0ftiO466 
064325 
002001 
U423? 
0P2M2P 
036126 
17<'ltl 
2* .^ 4 I I 
174161 
(^34161 
06«?144 
170161 
I6i?314 
064143 
0161W5 
00k) 1^*50 
016147 

051656 
002001 
026274 
164142 
160001 

0/6004 
1640ifjl 

026337 



EFCR2 



EFCK3 



EXECUTfc. N£XT 



06312 
06313 
06314 
6315 
06316 
06317 
06320 
06321 
06322 



016163 
026!?44 
070142 
076333 
002004 
072340 
04«t325 
070161 
064432 



*• * 

** 

** * 

ENEXT 



STB 
JSB 
ISZ 
ISZ 

LDA 
STA 
JSB 
STA 
ISZ 
STB 
ISZ 
LDB 
STB 
LDA 
SZA 
JMP 
LOA 
LDB 
RSS 
JSB 
SSA 
ISZ 
STA 
ISZ 
STB 
ISZ 
LDA 
STA 
LUA 
LDB 
JSB 
NOP 
JSB 
AND 
CPA 
KSS 
JMP 
LDB 
LDA 
INB 
LDB 
JMP 



JSB 
JMP 
STA 
STB 
INA 
STA 
ADA 
STA 
LDB 



I 



TEMPI, I 

FORMA, I 

TEMPS 

TEMPI 

TEMPI 

ENEX2 

FETCApI 

TEMPI, I 

TEMPI 

TEMPI, 

TEMPI 

M2 

FDATA 

TEMPbr I 

EF0R2 

HONE 

.2 



FETCA, I 

FDATA 

TEMPI, I 

TEMPI 

TEMPI, I 

TEMPI 

NXTST 

TEMPI, I 

ANEXT,I 

PRADD 

STSRH 

FLWST 

MSKl 

EDELM 

EF0R3 
HSTPT,I 

Irl 

Irl 
ENEX2-1 



FVSRH 
XEC4 
HSTPT 
ENEXl 

ENEX2 

.2 

TEMPI 

M2 



NO, RECORD FOR-VARIABLE ADDRESS 
INITIALIZE FOH-VARIABLE 

SAVE 
LIMIT 

ADDRESS 
FETCH 
AND 

STORE 
LIMIT 

SET FOR STEP SIZE 

SIGN CHECK 
LOOK FOR 

FOLLOWING ' STEP' 
FOUNn 
NOT FtJUND, 

DEFAULT 
IS 1.0 

STEP SIZE NEGATIVE? 
YES 
SAVE 
STEP 
SIZE 
SET POINTER 
TO STATEMENT 

FOLLOWING THE FOR 
FIND 

•NEXT' 

STATEMENT 

FIND FOLLOWING STATEMENT 
SAME 

FOR-VARIABLE? 
YES 
NO 
LOAD 

VALUE 
OF 

FOR-VARIABLE 
CHECK ACCEPTABILITY 



FIND CORRESPONDING STACK ENTRY 

NONE PRESENT 

RESET TOP OF STACK 

SAVE FOR-VARIABLE ADDRESS 

SAVE LIMIT 

ADDRESS 
SAVE STEP SIZE 

ADDRESS 
SET STEP SIZE 
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0447 


06323 


076126 






STB 


FDATA 


SIGN CHECK 


0448 


06324 


160161 






LDA 


TEMPlpl 


LOAD 


0449 


06^^25 


034161 






ISZ 


TEMPI 


STEP 


0450 


06326 


164161 






LOB 


TEMPI, I 


SIZE 


0451 


06327 


034161 






ISZ 


TEMPI 




0452 


06330 


002020 






SSA 




CHECK 


0453 


06331 


036126 






ISZ 


FDATA 


SIGN 


E)454 


06332 


017343 






JSB 


.FAD 


INCREMENT 


0455 


06333 


000000 


ENEXl 


NOP 




FOR-VARIABLE 


0456 


06334 


172333 






STA 


ENEXl, I 


AND 


0457 


06335 


036333 






ISZ 


ENEXl 


SAVE 


0458 


06336 


176333 






STB 


ENEXl, I 


VALUE 


0459 


06337 


017347 






JSB 


.FSB 


COMPUTE FOR-VARIABLE - L 


0460 


06340 


000000 


ENEX2 


NOP 






0461 


06341 


036126 






ISZ 


FDATA 


POSITIVE STEP SIZE? 


0462 


06342 


001600 






ELA 




YESr COMPLEMENT SIGN 


0463 


06343 


002020 






SSA 




NO, NON-NEGATIVE RESULT? 


0464 


06344 


026347 






JMP 


ENEX3 


NO 


0465 


06345 


160161 






LDA 


TEMPlrl 


YES, 60 TO FIRST 


((J466 


06346 


026045 






JMP 


XEC4*1 


STATEMENT OF LOOP 


0467 


06347 


060142 


ENEX3 


LOA 


HSTPT 


FAILSr 


046P 


06350 


040330 






ADA 


.6 


ERASE 


0469 


06351 


070142 






STA 


hSTPT 


STACK 


0470 


06352 


026044 






JMP 


XEC4 


ENTRY 


0471* 
















0472*** 




t 


k ** 








0473«* EXECUTE GOSUB 


** 








0474*** 




% 


1 *« 








0475* 
















0476 


06353 


006004 


E6CSB 


INB 




LOAD (A) MITH 


0477 


06354 


160001 






LDA 


Irl 


SEQUENCE NUMBER 


0478 


06355 


064144 






LDB 


NXTST 


LOAD (B) NITH 


0479 


06356 


070144 






STA 


NXTST 


RETURN SEQUENCE NUMBER 


0480 


06357 


015467 






JSB 


SLWST 


STACK RETURN ON LQi^-CORE 


0481 


06360 


040442 






ADA 


M10 


gosubs nested 


0462 


06361 


050120 






CPA 


L8TAK 


10 DEEP? 


0183 


06362 


014477 






JSB 


ERROR 


YES 


0484 


06363 


026044 


E2 




JMP 


XEC4 


NO 


0485* 
















0486*** 






**• 






0487** EXECUTE RETURN 


** 






0488*** 






*** 






0489* 
















0490 


06364 


064141 


ERTRN 


LDB 


L8TPT 


return stack 


0491 


06365 


094120 






CPB 


L8TAK 


EMPTY? 


0492 


06366 


014477 






JSB 


ERROR 


YES 


0493 


06367 


160141 


E3 




LDA 


LSTPTrl 


NO, LOAD RETURN ADDRESS 


0494 


06370 


044431 






ADB 


Ml 


RESET 


0495 


06371 


074141 






STB 


L8TPT 


STACK POINTER 


0496 


06372 


026045 






JMP 


XEC44>1 





- LIMIT 



STACK 
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0498* 














0499*** 




** • 








0500** EXECUTE WAIT •* 








050i*** 




*«* 








0502* 














0503 


06373 


034157 


EMAIT 


ISZ 


TEMPS 


POINT (TEMPS) TO FORMULA 


0504 


06374 


114232 




JSB 


FETCArl 


FETCH EVALUATED FORMULA 


0505 


06375 


002020 




SSA 




NEGATIVE? 


0506 


06376 


026044 




JMP 


XEC4 


YES 


0507 


06377 


015364 




JSB 


IFIX 


CONVERT TO INTEGER 


0508 


064ii)0 


0024I'J4 




CLA, 


riNA 


LARGE INTEGER 


0509 


0640] 


002003 




SZA, 


pRSS 


SMALL 


0510 


064<I2 


007021 




CMB, 


rSSBrRSS 


INTEGER? 


Qbii 


06403 


064470 




LOB 


MNE6 


NO 


0512 


06404 


006007 


EMAIl 


INBi 


rSZBrRSS 


WAIT? 


0513 


B640?s 


026044 




JMP 


XEC4 


NO 


0514 


06406 


060461 




LDA 


M310 


YES, SET INNER LOOP 


0515 


06407 


002006 




INA, 


rSZA 


MORE? 


0516 


06410 


026407 




JMP 


*-l 


YES 


0517 


06411 


026404 




JMP 


EWAIl 


NO 


0518* 














0519*** 




*«* 








0520** EXECUTE CALL ** 








0521*** 




** * 








0522* 














0523 


06412 


034157 


ECALL 


ISZ 


TEMPS 


FETCH 


0524 


06413 


034157 




ISZ 


TEMPS 


SUBROUTINE 


0525 


06414 


164157 




LDB 


TEMPS, I 


NUMBER 


0526 


06415 


015323 


, 


JSB 


FNnSB 


FIND 


0527 


06416 


>006004 




INB 




ENTRY 


0528 


06417 


16401^1 




LDB 


Irl 


POINT AND 


0529 


06420 


074172 




STB 


TEMPS+11 


SAVE IT 


0530 


06421 


060142 




LOA 


HSTPT 


SAVE HIGH CORE 


0531 


06422 


070171 




STA 


TEMPS+10 


STACK POINTER 


0532 


06423 


034157 


ECALl 


ISZ 


TEMPS 


ANY 


0533 


06424 


160157 




LOA 


TEMPS, I 


PARAMETERS 


0534 


06425 


050406 




CPA 


B4000 


LEFT? 


0535 


06426 


026431 




JMP 


ECAL2 


NO 


0536 


06427 


114233 




JSB 


FORMArl 


YES, EVALUATE 


0537 


06430 


026423 




JMP 


ECALl 


A PARAMETER 


0538 


06431 


003400 


ECAL2 


CCA 




LOAD ADDRESS OF 


0539 


06432 


040171 




ADA 


TEMPS*10 


PARAMETER ADDRESSES 


0540 


06433 


114172 




JSB 


TEMPS+ll, 


I AND BRANCH TO SUBROUTINE 


0541 


06434 


060171 




LOA 


TEMPS+10 


RESTORE 


0542 


06435 


070142 




STA 


HSTPT 




0543 


06436 


064115 




LDB 


FCORE 


POINTERS 


0544 


06437 


074140 




STB 


TSTPT 




0546 


06440 


026044 




JMP 


XEC4 
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0647* 












0548*** 




**« 








0549** EXECUTE READ ** 








0550*** 




*** 








0551* 












0552 06441 


054143 


EREAb 


CPB 


PRADD 


END-OF-STATEMENT? 


0553 06442 


026044 




JMP 


XEC4 


YES 


0554 06443 


114233 




JSB 


FORMA, I 


NO, EVALUATE NEXT ADDRESS 


0555 06444 


160142 




LDA 


H8TPT,I 


RECORD 


0556 06445 


071677 




STA 


OUTLN 


ADDRESS 


0557 06446 


016126 




JSB 


FDATA 


GET DATA ITEM 


0558 06447 


171677 




STA 


OUTLN,! 


STORE 


0559 0645P! 


035677 




ISZ 


OUTLN 


DATA 


0560 06451 


175677 




STB 


OUTLN, I 


ITEM 


0561 06452 


034142 




is; 


HSTPT 




0562 06453 


064157 




LDB 


TEMPS 




0563 06454 


006004 




INB 






0564 06455 


026441 




JMP 


EREAO 




0565** 












0566*** INITIALIZE 


FOR PRINT 


** 




0667** 












0568 06456 


000000 


PRMN 


NOP 






0569 06457 


003400 




CCA 




INITIALIZE 


0570 06460 


040131 




ADA 


.BUFA 


BUFFER 


0571 06461 


070132 




STA 


BADDR 


POINTER 


0572 06462 


060146 




LDA 


TYPE 


INITIALIZE 


0573 06463 


003004 




CMA, 


>INA 


•CHARACTERS OUTPUTTED' 


0574 06464 


070133 




STA 


CCNT 


COUNTER 


0575 06465 


002011 




SLAi 


,RSS 


START ON ODD CHARACTER POSITION? 


0576 06466 


126456 




JMP 


PRNIN,! 


NO 


0677 06467 


04;9431 




ADA 


Ml 


YES, BIAS 


0678 06470 


070133 




STA 


CCNT 


COUNTER 


0579 06471 


002400 




CLA 




OUTPUT A 


058C! 06472 


015715 




JSB 


OUTCR 


NULL CHARACTER 


0581 06473 


126456 




JMP 


PRNIN, I 




0582* 












0583*** 




«** 








0584** EXECUTE PRINT ** 








0565*** 




• ** 








0566* 












0587 06474 


016456 


EPRIN 


JSB 


PRNIN 


SET FOR PRINT 


0588 06475 


002400 




CLA 




TURN ON 


0589 06476 


026503 




JMP 


EPRIl^l 


•ENO-OF-LINE' FLAG 


0590 06477 


0024(90 


EPRI0 


CLA 




EXECUTE COMMA 


0591 06500 


050B67 




CPA 


EOL 


IF NOT FOLLOWING 


0592 06501 


015656 




JSB 


EOELH 


A TAB 


0593 06502 


003400 


EPRIl 


CCA 




TURN OFF 


0594 06503 


070567 




STA 


EOL 


•END-OF-LINE' FLAG 


0595 06504 


160157 




LDA 


TEMPS, I 


EXTRACT 


0596 06505 


010425 




AND 


OPDMK 


OPERAND 


0597 06506 


002002 




SZA 




NULL? 


0598 06507 


026627 




JMP 


EPR13 


NO, FORMULA OR TAB 


0599 06510 


034157 


EPRI2 


ISZ 


TEMPS 


YES 


0600 06511 


064157 




LDB 


TEMPS 


MORE 


0601 06512 


054143 




CPB 


PRADO 


STATEMENT? 


0602 06513 


026565 




JMP 


EPRI7 


NO 
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0603 
0604 
0609 
0606 
0607 
0608 
0609 
0610 
0611 
0612 
0613 
0614 
0615 
0616 
0617 
0618 
0619 
0620 
0621 
0622 
0623 
eb24 
0625 
k}626 
0627 
0626 
0629 
0630 
0631 
0632 
0633 
0634 
0635 
0636 
0637 
0633 
0639 
0640 
0641 
0642 
0643 
0644 
U645 
0646 
0647 
D648 
0649 
0650 
0651 
0652 
0653 
0654 
0655 
0b56 
0657 
0658 



06514 
06515 
06516 
06517 
06520 
06921 
06522 
06923 
06924 
06525 
06526 
06527 
06530 
06531 
06532 
06533 
06534 
06535 
06536 
06837 
06540 
06941 
06542 
06543 
06544 
06545 
06546 
06547 
06550 
06551 
06552 
06553 
06554 
06555 
06556 
06957 
06560 
06561 
06562 
06563 
'96564 
06565 
06566 
06567 
06570 
06571 
06572 
06573 
06574 
06575 
06576 
06577 
06600 
06601 
06602 
06603 



160157 

011^421^ 
05l(?4b3 
026477 
050404 
026902 
050402 
026536 

0034(6 If} 

040157 
070157 
0034tD0 
07W567 
114232 
034567 
026910 
015643 
026510 
002400 
070567 
071467 
071677 
1600^1 
0l'J376 
00i;003 
026556 
035677 
006004 
1600fc;l 
010420 
05(4402 
026556 
035677 
026542 
065677 
044133 
044455 
006021 
015677 
114223 
026904 
034567 
026603 
064146 
007004 
060133 
003004 
070146 
041^001 
004010 
040431 
064131 
002002 
114102 
026044 
015677 



EPRI3 



EPR14 



EPRI5 



EPRI6 



EPRI7 



EPfSie 



LDA 

AND 

CPA 

JMP 

CPA 

JMP 

CPA 

JMP 

CCA 

ADA 

STA 

CCA 

STA 

JSB 

I3Z 

JMP 

JSB 

JMP 

CLA 

STA 

STA 

STA 

LDA 

AND 

SZAr 

JMP 

ISZ 

IN8 

LDA 

AND 

CPA 

JMP 

ISZ 

JMP 

LDB 

AD6 

ADB 

SSBr 

JSB 

JSB 

JMP 

ISZ 

JMP 

LDB 

CHBr 

LDA 

CMAr 

STA 

ADA 

SLB 

ADA 

LDB 

SZA 

JSB 

JMP 

JSB 



TEMPS, I 

OPMSK 
B200kl 
EPRI0 
63000 
EPRIl 
B1000 
EPRU 

TEMPS 
TEMPS 

EOL 

FETCA,I 

EOL 

EPRI2 

ENOUT 

EPRI2 

EOL 

SLWST 

OUTLN 

If I 

MSK0 
RSS 
EPRI6 
OUTLN 

Irl 

OPMSK 

B1000 

EPRI6 

OUTLN 

EPRI5 

OUTLN 

CCNT 

H73 

RS8 

OUTLN 

QUTSArl 

EPRIl+2 

EOL 

EPRI8 

TYPE 

INB 

CCNT 

INA 

TYPE 

I 

Ml 
.8UFA 

WRITEf I 

XEC4 

OUTLN 



YES, EXTRACT 

NEXT OPERATOR 
•r' ? 
YES 

NO, •;• 7 
YES 

NO, » ? 
YES 

NO, MUST BE ♦,-, OR ( 
BACKUP TO PRIOR 

NULL OPERAND 
SET 

TAB FLAG 
EVALUATE 
TAB? 
YES 
NO, PRINT NUMBER 

TURN ON 

•END-OF-LINE* FLAG 
ZERO 

CHARACTER COUNT 

NON-NULL 

LOH CHARACTER? 
NO 
YES, COUNT IT 



" NEXT? 

YES 

NO, COUNT HIGH CHARACTER 

WILL 
LINE 
EXCEED 

72 CHARACTERS? 
YES, GET FRESH LINE 
OUTPUT STRING 

•END-OF-LINE* ? 

YES 

NO, LOAD COUNT OF 

CHARACTERS OUTPUTTED 
LOAD LINE LENGTH 
SAVE NEW COUNT OF 

CHARACTERS OUTPUTTED 
COMPUTE CHARACTERS NOT YET OUT 
CORRECT FOR START ON 

ODD PRINT POSITION 
OUTPUT 

NON-EMPTY 
BUFFER 

PRINT LINE 
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0659 

0661* 

0662* 

0663 

0664 

0665 

0666 

0667 

066S 

0669 

0670 

067i 

0672 

0673 

0674 

0675 

0676 

0677 

0678 

0679 

0680 

0681 

0662 

0663* 

0684 

0685* 

0686* 

0687* 

0688* 

0689* 

0690 

0691 

L1692 

0693 

0694 

0695 

0696 

0697 

0698 

0699 

0700 

0701 

0702 

0703 

0704 

0705 

0706 

0708 



06604 

* 
06605 
06606 
066147 
06610 
06611 
06612 
06613 
06614 
06615 
06616 
06617 
0662C 
06621 
06622 
06623 
k^6624 
06625 
06626 
06627 
06630 



026044 



TAB TELEPRINTEH 



116631 
026627 
006400 
074567 
040454 
002021 
026627 
003004 
040454 
040133 
002021 
124264 
071677 
060345 
015715 
035677 
026622 
124264 
015677 
124264 



ETAB 



ETABl 



06631 011413 lENTA 

** «*« 

* EXECUTE INPUT *• 

** *** 



06632 
06633 
06634 
06635 
06636 
06637 
06640 
06641 
06642 
06643 
06644 
06645 
06646 
06647 
06650 
06651 
06652 
06653 
06654 



002006 
114206 
014567 
026632 
064157 
006004 
054143 
026652 
050334 
114206 
114233 
003400 
140142 
034142 
070135 
026634 
002400 
070146 
026044 



ElKPl 
EINP2 



EINPT 



JMP 


XEC4 




** 






jse 


lENTArl 


SMALL INTEGER7 


JMP 


ETABl 


NO 


CLB 




YES, SET 


STB 


EOL 


•TAB' FLAG TRUE 


ADA 


M72 


EXCEED 


SSA, 


rRSS 


72? 


JMP 


ETABl 


YES 


CMA, 


*INA 


NO, COMPUTE 


ADA 


M72 


BLANKS? 


ADA 


CCNT 


REQUIRED 


SSAi 


,RSS 


ANY? 


JMP 


FR12A,I 


NO 


STA 


OUTLN 


YES, 


LDA 


.32 


OUTPUT 


jse 


OUTCR 


REQUIRED 


ISZ 


OUTLN 


NUMBER 


JMP 


• -3 


OF BLANKS 


JMP 


FR12A,I 




JSB 


OUTLN 


OUTPUT THE 


JMP 


FR12A,I 


LINE 


DEF 


.lENT 





EINP3 



INA, 


rSZA 


END-OF-INPUT? 


JSB 


DRQ8A,1 


YE8, CALL FOR MORE 


JSB 


CONST 


CONVERT AND STORE NUMBER 


JMP 


EINPl 


NOT NUMBER 


LDB 


TEMPS 


END-OF- 


INB 






CPB 


PRADO 


STATEMENT? 


JMP 


EINP3 


YES 


CPA 


.10 


NO, INSURE MORE INPUT 


JSB 


DRQSA,I 


CALL FOR INPUT 


JSB 


FORMA, I 


COMPUTE VARIABLE ADDRESS 


CCA 




STORE 


ADA 


HSTPT,! 


AODRESS-1 


ISZ 


HSTPT 


IN 


STA 


8BPTR 


POINTER 


JMP 


EINP2 




CLA 




RESET 


STA 


TYPE 


OUTPUT BUFFER 


JMP 


XCC4 
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0710** 












0711*** EXIT FORMULA CN EMPTt 


' STACK 


*• 


0712** 












&713 


06655 


103544 




DEF 


FORMXr! 




0714* 














0715*** 




*** 






0716** EXECUTE KESTORE t 


k* 






0717*** 




*** 






07i8* 














0719 


066S6 


064147 


ER8TR 


LD8 


DSTRT 


GET FIRST DATA STATEMENT t 


0720 


06657 


054431 




CPB 


Ml 


IMPOSSIBLE ADDRESS? 


0721 


06660 


026044 




JMP 


XEC4 


TES, DONE 


0722 


06661 


016074 




JSB 


8ETDP 


NOr SET DATA POINTER 


0723 


06662 


026044 




JMP 


XEC4 


DONE 


0001** 












0002*** FORMULA OPERATOR 


JUMP TABLE 


** 


0003** 












0004 


06663 


006722 


ARCTB 


DEF 


ESCMA 


SUBSCRIPT SEPARATOR 


0005 


06664 


007002 




DEF 


ESTR 


ASSIGNMENT OPERATOR 


0006 


06665 


007026 




DEF 


EFAD 


•♦• 


0007 


06666 


007031 




DEF 


EFSB 


• »• 


0008 


06667 


007034 




DEF 


EFMP 


• •• 


0009 


06670 


007037 




DEF 


EFDV 


•/• 


0010 


06671 


007042 




DEF 


EPWR 


It • 


0W11 


06672 


007164 




DEF 


EOTRT 


•>• 


Q(0l2 


06673 


007171 




DEF 


ELST 


»<• 


0013 


06674 


007215 




DEF 


ENEQL 


•#• 


0014 


06675 


007176 




DEF 


EEQL 


»•• 


0wil5 


06676 


007227 




DEF 


EUMIN 


UNARY •-• 


0016 


06677 


007232 




DEF 


ELBRC 


M' 


0«17 


06700 


100260 




DEF 


FORlAfI 


•(• 


0tJ18 


06701 


100262 




DEF 


FOR0BrI 


UNARY •♦' 


0019 


06702 


007240 




DEF 


EOR 


OR 


0020 


06703 


007246 




DEF 


EAND 


AND 


0021 


06704 


007253 




DEF 


ENOT 


NOT 


0ta22 


86705 


007203 




DEF 


ESORE 


•>-• 


0(423 


06706 


007210 




t)EF 


ELORE 


««■• 


0024** 












0025*** EXECUTE A 


BINARY 


OPERATOR •* 


1 


0026** 












01027 


06707 


000000 


Bl^OP 


HOP 




SAVE 


0028 


06710 


162707 




LOA 


BINOPrI 


SUBROUTINE 


0^29 


06711 


072717 




8TA 


BINOl 


CALL 


0030 


06712 


0367M7 




ISZ 


BINOP 


SET RETURN ADDRESS 


0031 


06713 


015515 




JSB 


OPCHK 


SAVE ADDRESS OF 


0032 


06714 


076720 




STB 


BIN02 


TOP OPERAND 


0033 


06715 


034142 




ISZ 


HSTPT 


UNSTaCK ADDRESS 


0034 


06716 


015505 




JSB 


STTOP 


LOAD SECOND OPERAND 


0035 


06717 


000000 


BIKOl 


NOP 




PERFORM OPERATION 


0036 


06720 


000000 


BIN02 


NOP 




ADDRESS OF SECOND OPERAND 


0037 


06721 


126707 




JMP 


BINOPrI 





ADDRESS 
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0039** 








0040*** EXECUTE SUBSCRIPT COHHA ** 




0041** 








0042 


06722 


016771 


ESCMA JSB E8BS 


INTEGERIZE COLUMN SUBSCRIPT 


0043 


06723 


034141 


IS2 LSTPT 




0044 


06724 


016771 


JSB E8BS 


INTEGERIZE ROM SUBSCRIPT 


0045 


06725 


164142 


LDB H8TPT,I 


FETCH 


0046 


06726 


044325 


ADB .2 


SUBSCRIPT 


0047 


06727 


160001 


LDA 1,1 


BOUNDS 


0046 


06730 


010376 


AND MSK0 


SAVE 


0049 


06731 


071677 


STA OUTLN 


COLUMN BOUND 


0050 


06732 


160001 


LDA Irl 


EXTRACT 


0051 


06733 


001727 


ALFrALF 


ROM 


0052 


06734 


010376 


AND HSK0 


BOUND 


0053 


06735 


003004 


CMArlNA 


ACTUAL 


0054 


06736 


140141 


ADA LSTPTrl 


ROW SUBSCRIPT 


0055 


06737 


002021 


SSArRSS 


LEGAL? 


0056 


06740 


0267S7 


JMP C6-1 


NO 


0057 


06741 


061677 


LOA OUTLN 


YES 


0058 


06742 


050324 


CPA .1 


COLUMN MATRIX? 


0059 


06743 


026747 


JMP ESCMl 


YES 


0060 


06744 


015236 


JSB MPY 


NOr COMPUTE ADDRESS 


0061 


06745 


100141 


DEF LSTPTrl 


DISPLACEMENT 


0062 


06746 


002001 


RSS 


DUE TO ROMS 


0063 


06747 


160141 


ESCMl LDA LSTPTrl 




0064 


06750 


007400 


CCB 


unstack 


0065 


06751 


044141 


ADB LSTPT 


ROW 


0066 


06752 


074141 


STB LSTPT 


SUBSCRIPT 


0067 


06753 


065677 


LDB OUTLN 


ACTUAL 


0068 


06754 


007004 


CMBrlNB 


COLUMN 


0069 


06755 


144141 


ADB LSTPTrl 


SUBSCRIPT 


0070 


06756 


006021 


SSBrRSS 


LEGAL? 


0071 


06757 


014477 


JSB ERROR 


NO 


0072 


06760 


140141 


E6 ADA LSTPTrl 


YESr ADD IN COLUMN DISPLACEMENT 


0073 


06761 


0P*1000 


AL8 


DOUBLE DISPLACEMENT 


0074 


06762 


164142 


LDB HSTPTrl 


COMPUTE 


0075 


06763 


140001 


ADA Irl 


ACTUAL 


0076 


06764 


170142 


STA HSTPTrl 


ADDRESS 


01^77 


06765 


064141 


LDB LSTPT 


UNSTaCK 


0078 


06766 


044431 


ADB Ml 




0079 


06767 


074141 


STB LSTPT 


t 


0080 


06770 


124260 


JMP FORlArl 




0681** 








0082*** INTEGERIZE 


A SUBSCRIPT ** 




0083** 








0084 


06771 


000000 


ESeS NOP 




011^65 


06772 


015515 


JSB OPCHK 


VALIDATE SUBSCRIPT 


0066 


06773 


160001 


LDA Irl 


FETCH 


0fci87 


06774 


006004 


INB 


SUBSCRIPT 


0088 


06775 


164001 


LDB Irl 




0089 


06776 


015353 


JSB SBFIX 


INTEGERIZE 


0090 


06777 


174141 


STB LSTPTrl 


SAVE IN OPERATOR STACK 


0091 


07000 


034142 


ISZ HSTPT 


POP OPERAND STACK 


0092 


07001 


126771 


JMP ESBSrI 
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0094* 

0095* 

0096* 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

010S 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117* 

0118 

0119* 

0120 

0121 

0122 

0123* 

0124* 

0125* 

0126 

0127 

0128 

0129* 

0130* 

0131* 

0132 

0133 

0134 

0135* 

0136* 

0137* 

0138 

0139 

0140 

0141* 

0142* 

0143* 

0144 

0145 

0146 

0147 

0148 

0149 



* 

** EXECUTE STORE ** 

* 



07002 
07003 
07004 
07005 
07006 

07010 
07011 
07012 
07013 
07014 
07015 
07016 
07017 
076*20 
07021 
07?22 
07023 
07024 
07025 



064166 
006002 
124263 
054165 
027922 
160142 
070170 
060165 
164000 
174170 
034170 
002904 
164000 
174170 
034142 
124262 
015515 
074165 
034142 
027007 



ESTR 



ESTRl 



ESTR2 



LDB 
SZB 
JMP 
CP8 
JMP 
LDA 
STA 
LDA 
LDB 
STB 
ISZ 
INA 
LDB 
STB 
ISZ 
JMP 
JSB 
STB 
ISZ 
JMP 



*** CAUL ADD ** 

* 

079'26 01b7lf'7 EFAl 

07W27 017343 

07»30 124261 
* 

** CALL SUBTRACT ** 
* 

07031 016707 EFSf 

07032 017347 
07(^33 124261 

* 

** CALL MULTIPLY ** 

* 
07^34 016707 EFKP 
071^35 017416 
07^36 124261 

* 

** CALL DIVIDE ** 

* 
07037 016707 EFIV 

07040 017463 

07041 124261 
* 

** EXECUTE t ** 
* 



JSB 
JSB 
JMP 



JSB 
JSB 

JMP 



JSB 
JSB 
JMP 



JSB 
JSB 
JMP 



0704? 

07043 
07044 
07J^45 
07046 

07047 



164142 
160001 
006004 
164001 
015364 
027052 



EPWR 



TEMPS+7 

FORlBrI 

TEMPS+6 

E8TR2 

HSTPTf I 

TEMP8+9 

TEMPS+6 

0fl 

TEMPS+9,1 

TEMPS+9 

TEMPS+9,1 

H8TPT 

FOR0BrI 

OPCHK 

TEMPS'f6 

H8TPT 

ESTRl 



BINOP 
.FAD 
FaR0Ar I 



BINOP 

,FSB 

FORBArl 



BINOP 

.FMP 

FQR0A,I 



BINOP 

.FDV 

FOR0A,I 



IS NEXT OPERATOR 

AN END-OF-FORMULA? 
NO, DEFER STORE 

YES, FIRST STORE OPERATOR USED? 
YES 
SET 

DESTINATION 
SOURCE ADDRESS JN (A) 
TRANSFER HIGH 

PART OF SOURCE 
UPDATE 

POINTERS 
TRANSFER LOW 

PART OF SOURCE 
POP STACK 

SAVE ADDRESS 

OF QUANTITY 
YES, POP HIGH-CORE 

STACK AND EXECUTE STORE 



LDB 


HSTPTrl 


LOAD 


LDA 


If I 




IN6 




POWER 


LOB 


Ifl 




JSB 


IFIX 




JMP 


• ♦3 
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0190 
0151 
0152 
0153 
0154 
0155 
0156 
0157 
0158 
0159 
0160 
0161 
0162 
0163 
0164 
0165 
0166 
0167 
0168 
0169 
0170 
k)171 
0172 
0173 
0174 

0175 
0176 
e\77 
0178 
0179 
018*4 
0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
0200 
0201 
0202 
0203 
0204 
0205 



07050 

07«51 

07052 

07053 

07054 

07055 

073'56 

d7f!!i7 

07lfb7 

07060 

07061 

07062 

07063 

07064 

07065 

07066 

07067 

07Vt79t 

07071 

07072 

07073 

07074 

07075 

07H76 

^7^77 

07100 

07101 

07102 

07103 

07104 

071^5 

07106 

07107 

07110 

07111 

07112 

07113 

07114 

07115 

07116 

07117 

07120 

07121 

07122 

07123 

07124 

07125 

07126 

07127 

07130 

07131 

0713? 

07133 

07134 

07U5 

07136 



102301 
027065 
016707 
027054 
017144 
002020 
014477 

066717 
114234 
017416 
106720 
114235 
124261 
077463 
006020 
007004 
0775b2 
016707 
027073 
017144 
066717 
072717 
076720 
060466 
070163 
060325 
070164 
067552 
004031 
027124 
077552 
006002 
027135 
063463 
002020 
027117 
060163 
064164 
124261 
060466 
064325 
017463 
000163 
124261 
077552 
062717 
066720 
017416 
000163 
0719163 
074164 
067552 
027107 
062717 
066720 



KPI»R 



BASER 



EPI»R1 



IPWR 



IPt^Rl 



IPI»R2 



IPKR5 



IPtaR3 



IPI»R4 



SOS 




INTEGER? 


JMP 


EPMRl 


YES 


JSB 


8INQP 


NO 


JMP 


RPMR 




JSB 


PCHK 


CHECK ARGUMENTS 


SSA 




NEGATIVE BASE? 


JSB 


ERROR 


YES 


EQU 


* 




LOB 


BINOl 


NO, LOAD BASE 


JS8 


.LOGAf I 


TAKE NATURAL LOG 


JSB 


,FMP 


MULTIPLY 


DEF 


SIN02rI 


BY POWER 


JSB 


.EXPA.I 


EXPONENTIATE 


JHP 


FOR0A,I 


RESULT 


STB 


TTl 


SAVE SIGN 


S3B 




SAVE 


CMBi 


rINB 


ABSOLUTE VALUE 


STB 


TT2 


OF POWER 


JSB 


BINOP 




JMP 


IPWR 




JSB 


PCHK 


CHECK ARGUMENTS 


LD6 


BINOl 


STORE 


STA 


BINOl 




STB 


8IN02 


BASE 


LDA 


HONE 


INITIALIZE 


STA 


TT3 


RESULT 


LDA 


.2 


TO 


STA 


TT4 


1.0 


LDB 


TT2 


DIVIDE POWER 


SLBi 


rBRS 


BY 2 


JMP 


IPWR3 


WAS ODD 


STB 


TT2 


WAS EVEN 


SZB 




ZERO? 


JMP 


IPWR4 


NO 


LDA 


TTl 


YES 


SSA 




POSITIVE POWER? 


JMP 


IPWR5 


NO 


LDA 


TT3 


YES, LOAD 


LDB 


TT4 


RESULT 


JMP 


FOR0A,I 




LDA 


HONE 


LOAD 


LDB 


.2 


1.0 


JSB 


,FDV 


DIVIDE BY 


DEF 


TT3 


RESULT 


JMP 


FOR0ArI 




STB 


TT2 


SAVE POWER 


LDA 


BINOl 


LOAD 


LDB 


6IN02 


BASE 


JSB 


.FMP 


MULTIPLY BY 


DEF 


TT3 


RESULT-SO-FAR 


STA 


TT3 


SAVE PARTIAL 


STB 


TT4 


RESULT 


LDB 


TT2 


LOAD POWER 


JMP 


IPWR2 




LDA 


BINOl 


LOAD 


LDB 


6IN02 


BASE 



PAGE ii00 «07 liXECUTE THE PR08RAH 



0206 07137 017416 

0207 07140 006717 

0208 07141 072717 

0209 07142 076720 

0210 07143 027103 
0211** 

0212*** INSURE VAL 
0213** 

0214 07144 000000 

0215 07145 076717 

0216 07146 166720 

0217 07147 002002 

0218 071S0 027161 

0219 07191 006003 

0220 07152 014477 

0221 07153 

0222 07193 006021 

0223 07194 027221 

0224 07195 014477 
0229 07156 060422 

0226 07197 064432 

0227 07160 124261 

0228 07161 006003 

0229 07162 027224 

0230 07163 127144 
0231** 

0232*** EXECUTE > 
0233** 

0234 07164 016707 

0235 07165 017347 

0236 07166 002020 

0237 07167 027221 

0238 07170 027217 
0239** 

0240*** EXECUTE < 
0241** 

0242 07171 0167^7 

0243 07172 017347 

0244 07173 002020 

0245 07174 027224 

0246 07175 027221 
0247** 

0248*** EXECUTE > 
0249** 

0250 07176 016707 

0251 07177 017347 
0292 07200 002002 

0253 07201 027221 

0254 07202 027224 



JSB 


• FMP 


SQUARE 


DEF 


BINOl 


IT 


8TA 


BINOl 


SAVE 


STB 


BIN02 


RESULT 


JMP 


IPWRl 





ID OPERATION •• 



PCKK 


NOP 






STB BINOl 


LOAD 




LDB BINOa^I 


POWER 




SZA 


BASE ZERO? 




JMP PCHKl 


NO 




SZBrRSS 


YESr POWER ZERO? 




JSB ERROR 


YES 


POt^ER 


EOU * 






SSBrRSS 


NO, POWER POSITIVE? 




JMP FALSE 


YES 




JSB ERROR 


NO 


ZRTNS 


LOA INF 


USE POSITIVE 




LDB M2 


INFINITY 




JMP FORBArl 




PCt-Kl 


SZBfRSS 


POWER ZEROT 




JMP TRUE 


YES, RETURN 1,0 


* A 


JMP PCHK,I 


NO 


w w 

EGTRT 


JSB BINOP 


COMPUTE OPERAND 




JSB .FSB 


DIFFERENCE 




SSA 


NEGATIVE? 




JMP FALSE 


YES 


A A 


JMP ENEQl 


NO 


w w 

EL8T 


JSB BINOP 


COMPUTE OPERAND 




JSB .FSB 


DIFFERENCE 




SSA 


NEGATIVE? 




JMP TRUE 


YES 




JMP FALSE 


NO 



«* 

EEGL JSB BINOP 

JSB .FSB 

EEGLl SZA 

JMP FALSE 

JMP TRUE 



COMPUTE OPERAND 

DIFFERENCE 
ZERO? 
NO 
YES 
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0266** 

0257*** 

0258** 



EXECUTE >■ *• 



0259 

0260 

0261 

0262 

0263 

0264** 

0265*** 

0266** 



^7203 
07204 
07205 
07206 
07207 



016707 
017347 
002020 
027221 
027224 



EGCRE 



EXECUTE <■ *• 



016707 
017347 
002020 
027224 
027200 



EXECUTE # ** 



016707 
017347 
002002 
027224 



0267 07210 

0268 07211 

0269 07212 

0270 07213 

0271 07214 
0272** 
0273*** 
0274** 

0275 07215 

0276 07216 

0277 07217 

0278 07220 
0279** 

0280*** SET 
0281** 

0282 07221 002400 

0283 07222 006400 

0284 07223 124261 

0285 07224 06tf466 

0286 07«'25 064325 

0287 07226 124261 
0286** 
0289*** 
0290** 

0291 07227 015505 

0292 07230 015423 

0293 07231 124261 
0294** 

0295*** EXECUTE 
0296** 



ELCKE 



ENEOL 



ENEUl 



JSB 
JSB 
SSA 
JMP 
JMP 



JSB 
JSB 
SSA 
JMP 
JMP 



JSB 
JSB 
SZA 

JMP 



BINOP 
.FSB 

FALSE 
TRUE 



BINOP 
.FSB 

TRUE 
EEQLl 



BINOP 
,FSB 

TRUE 



LOGICAL VALUES ** 



FALSE 



TRIE 



CLA 

CLB 

JMP FOR0A,I 

LOA HONE 

LDB .2 

JMP FOR0ArI 



EXECUTE UNARY - *• 



EUKIN 



JSB 8TT0P 
JSB ARINV 
JMP FORBA,l 



LEFT BRACKET •* 



0297 

0298 

0299 

0300 

0301 

0302 

0303** 

0304*** 

0305** 



07232 
07233 
07234 
07235 
07236 
07237 



034141 
064405 
015467 
015476 
015536 
ki2722A 



ELBRC 



ISZ LSTPT 
LDB SCCNT 
JSB SLMST 
JS9 BHSTP 
JSB RSCHK 
JMP TRUE 



EXECUTE OR *• 



0306 
0307 
0308 
0309 
0310 
0311 



0724C 
07241 
07242 
07243 
07244 
07245 



016707 
027242 

002002 
027224 
162720 
027217 



EOfi 



ORS 



ORSl 



JSB 
JMP 
SZA 
JMP 
LDA 
JMP 



BINOP 
ORS 

TRUE 

BIN02rI 

ENEQl 



COMPUTE OPERAND 

DIFFERENCE 
POSITIVE? 
NO 
YES 



COMPUTE OPERAND 

DIFFERENCE 
NEGATIVE? 
YES 
NO 



COMPUTE OPERAND 

DIFFERENCE 
NON-ZERO? 
YES 



LOAD 
ZERO 

LOAD 
ONE 



LOAD NUMBER 
NEGATE NUMBER 



LOAD SUBSCRIPT COMMA 

INFORMATION WORD 
STACK IT 
STACK 



1 



VALIDATE 

OPERANDS 
SECOND OPERAND NON-ZERO? 
YES 
N0» CHECK SECOND 

OPERAND 
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0312* 

0313* 

0314* 

0315 

0316 

0317 

0318 

0319 

0320* 

0321* 

0322* 

0323 

0324 

0325 

0326 

0327* 

0328* 

0329* 

0^30 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 



** EXECUTE AND ** 

* 

07246 016707 EAKD 

07247 027250 

07250 002003 ANCS 

07251 027221 

07252 027244 






EXECUTE NOT ** 
ENCT 



07253 015505 

07254 002002 
07235 027221 
07256 027224 



J8B BINOP 
JMP ANOS 
SIArPSS 
JMP FALSE 
JMP ORSl 



JS8 STTOP 
SZA 

JMP FALSE 

JMP TRUE 



VALIDATE 

OPERANDS 
SECOND OPERAND 
YES 
NO 



LOAD OPERAND 

ZERO? 

NO 

YES 



ZERO? 



ADD TMO FLOATING 
ADfUP 
ADfUl 



* 

07257 000000 

07260 061677 

07261 003004 

07262 040154 

07263 002021 

07264 027302 

07265 062074 

07266 066105 

07267 072105 

07270 076074 

07271 062147 

07272 066163 

07273 072163 

07274 076147 

07275 060154 

07276 066677 

07277 071677 

07300 074154 

07301 027261 

07302 040447 

07303 066147 

07304 002021 

07305 027334 

07306 003100 

07307 040447 

07310 071677 

07311 062105 

07312 066163 

07313 035677 

07314 027337 

07315 046147 

07316 103101 

07317 005326 

07320 000040 

07321 042074 

07322 004010 

07323 002004 

07324 005566 



POINT QUANTITIES ** 



NOP 

LDA OUTLN 
CMArlNA 
ADA EXP 
SSAfRSS 
JMP ADMU2 
LDA Al 
LDB A2 
STA A2 
STB Al 
LDA CI 
LDB 02 
STA C2 
STB CI 
LDA EXP 
LDB OUTLN 
STA OUTLN 
STB EXP 
JMP ADMUl 

ADI'U2 ADA M25 
LDB CI 
SSArRSS 
JMP ADMU4 
CMA,CLE 
ADA M25 
STA OUTLN 
LDA A2 
LDB C2 

ADr'U3 ISZ OUTLN 
JMP ADMU6 
ADB CI 
CLO 

RBRfELB 
CLE 

ADA Al 
SLB 
INA 
ERB,CLE,ELB 



COMPUTE 
EXPONENT 
DIFFERENCE 
ARO 1 LARGER? 
YES 
NO, 
SWAP 

ARGUMENTS 



SHIFT COUNT >■ 

28 ? 
YES, IGNORE SMALLER ARGUMENT 
NO, COMPUTE 

SHIFT COUNT 
AS NEGATIVE 
LOAD SMALLER 
MANTISSA 
MORE SHIFTS? 
YES 
NO, ADD LOM MANTISSAS 

SAVE (E) IN 8(0) 

ADO HIGH MANTISSAS 

OVERFLOW FROM LOWER MANTISSA? 

YES, ADD IT IN 

ERASE B(0) 
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0368 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

b380 

0381 

0382* 

0383* 

0384* 

0385 

0386 

0387 

0388 

0389* 

0390* 

0391* 

0392 

0393 

0394 

039t> 

0396 

0397 

0398 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407* 

0406* 

0409* 

0410 

0411 

0412 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 



07325 
07326 
07327 
07330 
07331 
07332 
07333 
07334 
07335 
07336 
07337 
07340 
07341 
07342 



102301 
027335 

001500 
005500 
034154 
027335 
002001 
062074 
015020 
127257 
000071 
002200 
005540 
027313 



ADr'U4 



SOS 
JMP 
ERA 
ERB 
ISZ 
JMP 
RSS 
LOA 
JSB 
JMP 



A0MU44>1 



EXP 
ADMU44>1 



OVERFLOW? 

NO 

YES# SHIFT 

MANTISSA DOMN AND 
CORRECT EXPONENT 



Al 

.PACK 
ADHUPrl 
A0FU5 CLErSLA^ARS 
CME 

ERBfCLE 
JMP ADHU3 



RETRIEVE HI9H 
NORMALIZE AND 

ARITHMETIC 
DOUBLE 
SHIFT 



MANTISSA 
PACK 



** ADD TmQ floating POINT NUMBERS •* 



07343 000000 .FAD NOP 

07344 017366 JSB UNPAK 

07345 017257 JSB ADMUP 

07346 127343 JMP .FAD* I 



UNPACK THE AR8UHENT8 
ADO THEM UP 



** SUBTRACT TMO FLOaTINB POINT NUMBERS •* 



07347 
07990 

07351 
07352 
07353 
07354 
07355 
07356 
07357 
07360 
07361 
07362 
07363 
07364 
07365 
* 

• * UNP 

07366 
07367 
07370 
07371 
07372 
07373 
07374 
07375 
07376 
07377 
07400 
07401 
07402 
07403 



000000 ,FSB NOP 

017366 JSB UNPAK UNPACK THE AR6UMENTS 

062105 LDA A2 TMO'S COMPLEMENT 

003000 CMA THE SECOND ARGUMENT 

007006 CMB^INBrSZB LON PART ZERO? 

027362 JMP .FSBl NO 

002025 SSArlNAfRSS YES, ORIGINAL NUMBER NEGATIVE? 

002021 SSArRSS YES^ STILL NEGATIVE? 

027362 JMP .FSBl NO 

001300 PAR YES, SHIFT DOMN AND 

035677 ISZ OUTLN CORRECT EXPONENT 

076163 .FSBl STB C2 SAVE COMPLEMENTED 

072105 8TA A2 NUMBER 

017257 JSB ADMUP ADD ARGUMENTS 

127347 JMP ,FSB,I 



ACK ARGUMENTS FOR ARITHMETIC OPERATIONS •• 



000000 UNPAK NOP 

072074 STA Al 

002003 SZArRSS 

006404 CLBrlNB 

015456 JSB .FLUN 

076147 STB CI 

070154 STA EXP 

063366 LDA UNPAK 

040432 ADA M2 

164000 LDB 0»I 
134000 ISZ 0^1 

164001 LDB Irl 
005275 RBLfCLEfSLB,ERB 
027401 JMP **2 



SAVE HIGH PART OF ARG 1 
UNPACK 

SECOND 

NORD 

SAVE LOW PART OF ARG 

SAVE EXPONENT OF ARG 

COMPUTE ADDRESS OF 

CALLING ROUTINE 



1 
1 



SET CALLING 
LOAD 

ADDRESS 
ARG 2 



ROUTINE'S RETURN 
OF 
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19424 


07404 


160001 


LOA 


Ifl 


LOAD 


0425 


07409 


006004 


INB 




ARO 2 


0426 


074U6 


164001 


LDB 


Irl 




0427 


07407 


0721B5 


8TA 


A2 


SAVE HIGH PART OF AR6 2 


0426 


07410 


002003 


SZAi 


RSS 


UNPACK 


0429 


07411 


006404 


CLB, 


INB 


SECOND 


0430 


07412 


015456 


J8B 


.FLUN 


WORD 


0431 


07413 


076163 


STB 


C2 


SAVE LOM PART OF AR6 2 


0432 


07414 


071677 


STA 


OUTLN 


SAVE EXPONENT OF ARO 2 


0433 


07415 


127366 


JMP 


UNPAKrI 




0434** 










0435*** MULTIPLY TWO 


FLOATING POINT 


NUMBERS ** 


0436** 










0437 


07416 


000000 . 


FPP NOP 




UNPACK THE 


0436 


07417 


017366 


J8B 


UNPAK 


ARGUMENTS 


0439 


07420 


040154 


ADA 


EXP 


ADD EXPONENTS 


0440 


07421 


002004 


INA 




PLUS I FOR 


0441 


07422 


070154 


STA 


EXP 


NORMALIZATION 


0442 


07423 


005300 


RBR 




POSITION LOW PART OF ARG 


0443 


07424 


060001 


LDA 


1 


COMPUTE A 


0444 


0742S 


015236 


J8B 


MPY 


CROSS PRODUCT 


0445 


07426 


006074 


DEF 


Al 




0446 


07427 


072163 


STA 


C2 


SAVE RESULT 


0447 


07430 


062147 


LDA 


CI 


LOAD AND POSITION 


0448 


07431 


001300 


RAR 




LOW PART OF ARG 1 


0449 


07432 


076147 


STB 


CI 


SAVE REST OF PRIOR RESULT 


0450 


07433 


015236 


JSB 


MPY 


COMPUTE SECOND 


0451 


07434 


0061(95 


DEF 


A2 


CROSS PRODUCT 


0452 


07435 


046147 


ADB 


CI 


ADD 


0453 


07436 


000040 


CLE 




CROSS 


0454 


07437 


042163 


ADA 


C2 


PRODUCTS 


0455 


07440 


002040 


8EZ 




CORRECT 


0456 


07441 


006004 


INB 




FOR CARRY 


0457 


07442 


076163 


STB 


C2 


SAVE RESULT 


0456 


07443 


062074 


LDA 


Al 


COMPUTE 


0459 


07444 


015236 


JSB 


MPY 


HIGH PART 


0460 


07445 


006105 


DEF 


A2 


OF PRODUCT 


0461 


07446 


000065 


CLEi 


pERA 


POSITION LOW PART 


0462 


07447 


042163 


ADA 


C2 


ADD IN CROSS TERMS 


0463 


07450 


000066 


CLE, 


rELA 


REPOSITION 


0464 


07451 


002041 


SEZ, 


rRSS 


CARRY FROM LOW PART? 


0465 


07452 


027456 


JMP 


**4 


NO 


0466 


07453 


102201 


SOC 




YES, POSITIVE CARRY? 


0467 


07454 


006005 


INBi 


rRSS 


YES 


0466 


07455 


044431 


ADB 


Ml 


NO 


0469 


07456 


072074 


STA 


Al 


EXCHANGE 


0470 


07457 


060001 


LDA 


1 




0471 


07460 


066074 


LDB 


Al 


REGISTERS 


0472 


07461 


015020 


JSB 


• PACK 


NORMALIZE AND PACK 


0473 


07462 


127416 


JMP 


.FMP,I 
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0475* 

0476* 

0477* 

0476 

0479 

0460 

0461 

0462 

0483 

0484 

0485 

0466 

0467 

0466 

0489 

0490 

0491 

0492 

0493 

0494 

0495 

0496 

0497 

0496 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0607 

0508 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0317 

0518 

0519 

0520 

0521 

0522 

0523 

U524 

0525 

10526 

»)527 

£)528 

0529 

0530 



*• PERFORH FLOATING DIVIDE •* 



07463 

07464 

07465 

07466 

07467 

07470 

07471 

07472 

07473 

07474 

07475 

07476 

07477 

07500 

07501 

07502 

07503 

075<^4 

07505 

07506 

07507 

075161 

07511 

07512 

07513 

07514 

07515 

07516 

07S17 

07520 

07521 

07522 

07523 

07524 

07525 

07526 

07527 

07530 

07531 

07532 

07933 

07934 

07535 

07536 

07537 

1^7540 

07541 

07542 

07543 

07544 

07b45 

07546 

07547 



000000 

017366 

066105 

006003 

027546 

066(^74 

006003 

027543 

003004 

002004 

040154 

070154 

062147 

004071 

002200 

001500 

0041^71 

002200 

001500 

017552 

071677 

005100 

002400 

017S52 

070615 

066163 

002500 

005521 

005100 

017552 

003004 

015236 

001677 

005066 

060615 

002020 

003401 

002400 

003040 

002004 

003100 

044615 

002040 

002004 
004066 
001600 
041677 
002001 
002400 
015020 
127463 
014477 
062074 



.FtV 



• FCvl 



.F£V2 
08YZR 



NOP 

J8B UNPAK 

LDB A2 

SZBfRSS 

JHP ,FDV2 

LDB Al 

SZBfRSS 

JMP .FDVl 

CHA,INA 

INA 

ADA EXP 

9TA EXP 

LDA CI 

CLErSLBrBRS 

CME 

ERA 

CLEfSLBrBRS 

CME 

ERA 

J8B IDIV 

STA OUTLN 

BRS 

CLA 

JSB IDIV 

STA NUHCK 

LDB C2 

CLArCLE 

ERBrBRS 

BRS 

JSB IDIV 

CMArlNA 

JSB MPY 

DEF OUTLN 

BLSrCLErELB 

LDA NUHCK 

SSA 

CCArRSS 

CLA 

CMArSEZ 

INA 

CMArCLE 

AD8 NUHCK 

SEZ 

INA 

CLEfELB 

ELA 

ADA OUTLN 

RS8 

CLA 

JSB 

JMP 

JSB 

LDA 



UNPACK ARGUMENTS 
DIVISOR 
ZERO? 
YES 
NOr DIVIDEND 

ZERO? 
YES 

NO, COHPUTE 
EXPONENT 
DIFFERENCE 
PLUS 1 
LOAD DIVIDEND 
ARITHMETIC 
RI0HT SHIFT 
TWICE TO 
PREVENT 
DIVISION 
OVERFLOW 
DIVIDE 

SAVE QUOTIENT 
DIVIDE REHAINDER BY 2 TO 

PREVENT DIVISION OVERFLOW 
DIVIDE REMAINDER AND 

SAVE LOW PART OF QUOTIENT 

SCALE TO 

PREVENT 
OVERFLOW 
COMPUTE B2/A2 « 
COMPUTE 

-HIOH QUOTIENT*Q 

SHIFT SI8N TO (E) 
LOM QUOTIENT 

NEGATIVE? 
YES, SET (A)«-l (EXTEND 
NOr SET (A)«e SIGN) 
IF (E)«l SUBTRACT 

1 AS EXTENSION 
OF PRODUCT 
ADD IN LOW QUOTIENT 
CARRY 

INTO (A) 
POSITION 

REGISTERS 
ADO IN HIGH 



QUOTIENT 



.PACK 
.FDV,I 
ERROR 
Al 



SET MANTISSA TO ZERO 
NORHALIZE AND PACK 

DIVIDE-BY-ZERO 
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0531 


07550 


015103 


0532 


07551 


127463 


0533** 




0934*** INTEGER D 


0535** 




0536 


07552 


000000 


0537 


07553 


076074 


0538 


07554 


066105 


0539 


07555 


006120 


0540 


07556 


007204 


0541 


07557 


077343 


0542 


07560 


007004 


0543 


07561 


077347 


0544 


07562 


064445 


0545 


07563 


076147 


0546 


07564 


064432 


0547 


07565 


074153 


0548 


07566 


077416 


0549 


07567 


066074 


0550 


07570 


006021 


0551 


07971 


027577 


0552 


07572 


037416 


0553 


07573 


007200 


0554 


07574 


002002 


0555 


07S75 


003005 


0556 


07576 


006004 


0557 


07577 


002040 


0558 


07600 


034153 


0659 


07601 


000066 


0560 


07602 


005600 


0561 


07603 


047347 


0562 


07604 


006021 


0563 


07605 


002005 


0564 


07606 


047343 


0565 


97f>97 


036147 


0566 


07610 


027601 


0567 


07611 


003004 


0568 


07612 


034153 


0569 


07613 


003004 


0570 


07614 


037416 


0571 


07615 


127552 


0572 


07616 


007004 


0573 


07617 


127552 



JSB 
JMP 



OVFLK*' 
.FDV,I 



** 



IDIV NOP 

STB Al 
LOB A2 
CLErSSB 
CMBrCHEr INB 
STB .FAD 
CMBf INB 
STB ,FS8 
LDB M16 
STB CI 
LOB n2 
STB SIGN 
STB ,FMP 
LOB Al 
SSBrRSS 
JHP lOlVl 
IS2 .FMP 
CHBfCME 
SZA 

CriArlNArRSS 
INB 

lOIVl SEZ 

ISZ SIGN 

IDIV2 CLErELA 
ELB 

ADB .FSB 
SSBfRSS 
INAfRSS 
ADB .FAD 
ISZ CI 
JMP I0IV2 
CNArlNA 
ISZ SIGN 
CHArlNA 
ISZ .FMP 
JMP I0!V*I 
CMBrlNB 
JMP ID!V,I 



RETURN INFINITY 



DIVIPEND IN (B) AND (A> 
SAVE HIGH DIVIDEND 

SET (B) TO ABS(B) 
AND (E) TO SI6N(B> 

SAVE POSITIVE DIVISOR 

SAVE 

NEGATIVE DIVISOR 

SET 

COUNTER 

SET 

SIGNS 
RETRIEVE HIGH DIVIDENED 
POSITIVE? 
YES 

NOr SET REMAINDER SIGN 
NEGATIVE AND COMPLEMENT 
THE DIVISOR 
AND (E) 

QUOTIENT POSITIVE? 

NO 

SHIFT 

DIVIDEND 
SUBTRACT DIVISOR 
OK? 
YES 

NOr RESTORE DIVIDEND 
DONE? 
NO 

YESr NEGATE QUOTIENT 
RESULT TO BE POSITIVE? 
YES 

NO, REMAINDER POSITIVE? 
YES 
NO 
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eS75« 

0576* 

0577* 

057S* 

0579* 

0980* 

0561* 

0682* 

0583* 

0584* 

0585* 

0586* 

0587* 

0588* 

0589* 

0590* 

0591* 

0592* 

0593* 

0594* 

0595* 

0596 

0597 

0698 

0599 

0600 

0601 

0602 

0603 

06^4 

0605 

0606 

0607 

0608 

0609 

0610 

0611 

0612 

0613 

0614 

0615 

0616 

0617 

0618 

0619 

0620 

0621 

0622 

0623 

0624 

0625 

0626 

0627 

0628 

0629 

0630 



07620 

07621 

07^22 

07623 

07624 

07625 

07626 

07627 

07630 

07631 

07632 

07633 

07634 

07635 

07636 

07637 

07640 

07641 

07642 

07643 

07644 

07645 

07646 

07647 

07650 

07651 

07652 

07653 

07654 

07655 

07656 

07637 

07660 

07661 

07662 



000000 

070163 

010336 

040434 

002024 

027631 

060163 

070001 

027643 

002020 

027640 

060163 

010437 

070001 

006(304 

027643 

0074IU0 

060326 

030163 

070164 

074165 

064116 

027667 

160001 

050163 

127620 

050164 

027674 

050165 

027674 

160001 

010336 

0SKI336 

027666 

040434 



8YKB0L TABLE SEARCH SUBROUTINE 



THE SUBROUTINE IS CALLED WITH THE IDENTIFIER TO BE 
SEARCHED FOR IN A . THE SUBROUTINE RETURNS WITH 
THE ADDRESS OF THE MATCHING ENTRY IN 6 OR -I IN 
B IF THERE IS NO MATCHING ENTRY 
THE FOLLOWING RULES APPLY WHEN SEARCHING FOR ARRAYS 

TYPE 1 (1 DIMENSION) SEARCH FOR CORRESPONDING TYPE 1 
OR TYPE 3 ARRAY, IF TYPE 3 IS FOUND CHANGE THE ENTRY 
TYPE TO TYPE 1 

TYPE 2 (2 DIMENSIONS) SEARCH FOR CORRESPONDING TYPES 
OR TYPE 3 ARRAY. IF TYPE 3 IS FORND CHANGE THE ENTRY 
TYPE TO TYPE 2 

TYPE 3 (UNDIMENSIONED) SEARCH FOR CORRESPONDING 
TYPE 3 OR TYPE 1 OR TYPE 2 ARRAY 



5SYHT NOP 
STA 
AND 
ADA 
SSA 
JMP 
LDA 
STA 
JMP 
SSA 
JMP 
LDA 
AND 
STA 
INB 
JMP 
SYr'Tl CC8 
LDA 
lOR 
STA 
STB 
LOB 
JMP 
SYr'T2 LDA 
CPA 
JMP 
CPA 
JMP 
CPA 
JMP 
LDA 
AND 
CPA 
JMP 
ADA 



STEMP 
.15 
M4 
rINA 
* + 4 
STEMP 
1 
SYMTl+3 

SYMTl 
STEMP 
MSK3 
1 

**4 

.3 

STEMP 

8TEMP*1 

STEMP+2 

SYMTF 

SYMT4 

Irl 

STEMP 

SSYMTfl 

STEMP+1 

SYMT3 

STEMP*2 

SYMT3 

If I 

.15 

.15 

**5 

M4 



STORE IDENTIFIER 
ISOLATE IDENTIFIER TYPE 



JUMP IF ARRAY TYPE 
RESTORE A 
STORE IN B 

SKIP IF UNDIMENSIONED 

RESTORE A 

177771B SET TYPE TO 1 

SET Type in b to 2 

SET DIMENSIONED FLAG IN B 

SET TYPE TO UNDEFINED 

STORE A 

STORE B 

START OF SYMBOL TABLE 

PICK UP 1ST WORD OF ENTRY 
COMPARE WITH IDENTIFIER 
MATCH 7 RETURN 
COMPARE WITH DIFFERENT DIM. 

COMPARE WITH DIFFERENT DIM. 



ISOLATE ENTRY TYPE 

FUNCTION ? 

YES 
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0631 


07663 


002020 


0632 


07664 


006004 


0633 


07665 


006004 


0634 


07666 


044325 


0635 


07667 


054117 


0636 


07670 


0074(^1 


0637 


07671 


027647 


0638 


07672 


06idl63 


0639 


07673 


127620 


0640 


07674 


060163 


0641 


07675 


034165 


0642 


07676 


002001 


0643 


07677 


170001 


0644 


id77m 


127620 



syf«T4 



SYKT4 



SSA 
INB 
INB 
ADB 
CPB 



.2 

SYMTA 
CCBrRSS 
JMP SYMT2 
STEMP 
S8YMT,I 
STEMP 
STEHP*2 



LDA 
JMP 
LDA 
ISZ 
RSS 
STA 
JMP 



1,1 

SSYMTrl 



ARRAY 7 

YES INCREMENT POINTER 
INCREMENT POINTER 
ADD 2 TO POINTER 

SYMBOL TABLE EXHAUSTED? 

YES 

NO, CHECK NEXT ENTRY FOR MATCH 

RETRIEVE SYMBOL 
RETURN WITH B NEGATIVE 
RESTORE A 

DIMENSIONED IDENTIFIER? 
NO, SKIP 

YES CHANOE 1ST WORD OF ENTRY TO 
APPROPRIATE DIMENSION TYPE 



0002** 




0003*** ERROR TAB 


0004** 




0005 


07701 


000266 


0006 


07702 


002066 


0007 


07703 


002137 


0008 


07704 


002236 


0fc»09 


07705 


000717 


0010 


07706 


002656 


0011 


07707 


002346 


0012 


07710 


002361 


0013 


07711 


002406 


0014 


07712 


002420 


0k/l5 


07713 


002425 


k)e>l6 


07714 


i}02445 


0017 


07715 


002453 


01618 


07716 


002465 


0019 


07717 


002500 


0^20 


07720 


001330 


6ki21 


07721 


002541 


^022 


07722 


000614 


0u23 


07723 


002561 


0(024 


07724 


002bl3 


0k;25 


07725 


002625 


0026 


07726 


002671 


0it)27 


07727 


002702 


0028 


07730 


002755 


0029 


07731 


002775 


0030 


07732 


003007 


0031 


07733 


003020 


0032 


07734 


003041 


0033 


B7736 


003060 


0034 


07736 


003202 


0035 


07737 


003256 


0036 


07740 


003306 


0037 


07741 


003534 


0038 


07742 


003547 



«* 



ERR 



DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 



EUF + 1 

RTLE 

INVSC 

SYNEl 

NUMER«-1 

8YE16 

SYNE2 

SYNE3 

SYNE4*1 

SYNEb 

SYNE6«1 

SYNE7 

SYNE8*! 

8YNE9 

SYE10 

CALER 

SYEll+l 

SYE12 

SYE13 

SYE14 

8YE15 

SYE17 

SYE18 

8YE19 

SYE20 

SYE21 

SYE22 

8YE23 

SYE24*1 

FSCEl+1 

F8CE2+1 

FSCE3*l 

ARREl 

ARRE2 



MISSING 
MISSING 
MISSING 
HISSING 



PREMATURE STATEMENT END 

INPUT EXCEEDS 71 CHARACTERS 

SYSTEM COMMAND NOT RECOGNIZED 

NO STATEMENT TYPE FOUND 

BAD EXPONENT PART 

NO LETTER WHERE EXPECTED 

LET STATEMENT HAS NO STORE 

ILLEGAL COM STATEMENT 

NO FUNCTION IDENTIFIER (OR BAD) 

MISSING PARAMETER 

ASSIGNMENT OPERATOR 

•THEN' 

OR IMPROPER FOR-VARIABLE 

•TO* 

BAD 'STEP* PART IN FOR STATEMENT 
CALLED ROUTINE DOES NOT EXIST 
WRONG NUMBER OF CALL PARAMETERS 
NO CONSTANT WHERE EXPECTED 
NO VARIABLE WHERE EXPECTED 
NO CLOSING QUOTE FOR STRING 
PRINT JUXTAPOSES FORMULAS 
IMPROPER WORD IN MAT STATEMENT 
NO COMMA WHERE EXPECTED 
IMPROPER ARRAY FUNCTION 
NO SUBSCRIPT WHERE EXPECTED 
ARRAY INVERSION INTO SELF 
MISSING MULTIPLICATION OPERATOR 
IMPROPER ARRAY OPERATOR 
ARRAY MULTIPLICATION INTO SELF 
MISSING LEFT PARENTHESIS 
MISSING RIGHT PARENTHESIS 
UNRECOGNIZED OPERAND 
HISSING SUBSCRIPT 
MISSING ARRAY IDENTIFIER 
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0^39 


07743 


004345 


DEF 


8yE25*l 


0^40 


07744 


000267 


DEF 


NOEOF*! 


0041 


07745 


003402 


DEF 


FSCE44>1 


0ki42 


07746 


002170 


OEF 


PRERR 


0tf)43 


07747 


005312 


DEF 


MER4 


i>fiAA 


07750 


006413 


DEF 


MER6 


0U45 


07751 


005264 


OEF 


HER3 


0046 


07752 


005512 


OEF 


MER8 


01047 


07753 


005941 


DEF 


MSYH 


01046 


07754 


005301 


DEF 


HI.0P6 


0049 


87755 


005377 


DEF 


MER5 


0050 


07756 


005431 


DEF 


HER10 


0051 


07757 


001352 


DEF 


MER9 


0ki52 


07760 


005464 


DEF 


MER7 


0053 


07761 


006760 


DEF 


E6 


0054 


07762 


001526 


DEF 


Ee 


0055 


07763 


007057 


DEF 


BASER 


0056 


07764 


007153 


DEF 


POWER 


0057 


07765 


006054 


DEF 


XEC5 


0W58 


07766 


006363 


DEF 


E2 


0059 


07767 


006367 


DEF 


E3 


0li}60 


^7776 


006135 


DEF 


E4 


0061 


07771 


001474 


DEF 


El*l 


0fo62 


07772 


011766 


DEF 


E7 


0063 


i777^ 


012036 


DEF 


LERR-^1 


0064 


07774 


012100 


DEF 


LCHK& 


0065 


167775 


012704 


DEF 


LOUMl 


0066 


ei7776 


010420 


DEF 


TROER 


0067 


^7777 


010771 


DEF 


SQRER 


0066 


10000 


011077 


OEF 


LOGER 


0069 


10(101 




RCERK EQU 


• 


0070 


10001 


001100 


DEF 


OVRER 


0071 


10002 


001074 


DEF 


UNDER 


0072 


10003 


011151 


DEF 


LNZR 


0073 


10004 


011305 


DEF 


EXPER 


0074 


101^^05 


007547 


DEF 


DBYZR 


0075 


10006 


007156 


DEF 


ZRTNG 


0076* 










0k'77* 










0k;78 


10007 


006412 


EBtFF OCT 


6412 


10079 


10010 


042522 


ASC 


3, ERROR 


0080 


10013 


000000 


EBFF BSS 


2 


0081 


10t^l5 


020111 


LBIFF ASC 


5r IN LINE 


0082 


10022 


000000 


LNBFF BSS 


2 



MISSING OR BAD INTEGER 

CHARACTERS AFTER STATEMENT END 

OUT OF CORE DURING SYNTAX 

PHOTO READER NOT READY 

FUNCTION MULTIPLY DEFINED 

UNMATCHED FOR STATEMENT 

UNMATCHED NEXT 

OUT OF STORAGE-SYMBOL TABLE 

INCONSISTENT DIMENSIONS 

LAST STATEMENT IS NOT 'END* 

ARRAY DOUBLE DIMENSIONED 

NO OF DIMENSIONS UNSPECIFIED 

ARRAY TOO LARGE 

OUT OF STORAGE-ARRAY ALLOCATION 

SUBSCRIPT TOO LARGE 

UNDEFINED OPERAND ACCESSED 

NEGATIVE BASE POWERED TO REAL 

ZERO TO ZERO POWER 

MISSING STATEMENT 

OOSUBS NESTED 10 DEEP 

RETURN FINOS NO ADDRESS 

OUT OF DATA 

OUT OF STORAGE - EXECUTION 

RE-DIMENSIONED ARRAY TOO LARGE 

DIMENSIONS NOT COMPATIBLE 

MATRIX UNASSIGNEO 

NEARLY SINGULAR MATRIX 

ARGUMENT TOO LARGE 

SORT HAS NEGATIVE ARGUMENT 

LOG OF NEGATIVE ARGUMENT 

•• RECOVERABLE ERRORS FOLLOW ** 

OVERFLOW 

UNDERFLOW 

LOG OF ZERO 

EXPONENTIAL OVERFLOW 

DIVIDE BY ZERO 

ZERO TO NEGATIVE POWFR 
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0064** 

0065*** 

0066** 



PREDEFINED FUNCTION JUMP TABLE •• 



0067 

0066 
0069 
0090 
0091 
0092 
0093 
0tt94 
009& 
0096 
0097 
0096 
0U99** 

0100*** 
0101** 



10024 
10025 
10»26 
10027 
10li)90 
10ei31 
10032 
100J3 
10034 
10036 
10036 
10037 



0066(05 
010647 
010645 
010406 
010532 
011177 
011070 
010642 
010765 
011055 
01B736 
011166 



PDFT 



DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 



ETA6 
ESIN 
EC08 
ETAN 
EATN 
EEXP 
EL08 
EABS 
ESQR 
EINT 
ERND 
ESGN 



OUTPUT A NUMBEK ** 



0102 

0103 

0104 

0105 

0106 

0107 

0106 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0116 

0119 

0120 

0121 

0122 

0123 

0124** 

0125*** 

0126** 



10040 000000 NUrOT NOP 

10041 071603 STA EXPON 

10042 002041 SEZrRSS 

10043 026055 JHP NS2 

10044 002021 SSAfRSS 

10045 026052 JHP NSl 

10046 01&423 JSB ARINV 

10047 071603 STA EXPON 

10050 060354 LDA .45 

10051 002001 RSS 

10052 060345 NSl LDA ,32 

10053 070153 STA SI6N 

10054 061603 LDA EXPON 

10055 076344 NS2 STB 6ETD6 

10056 015364 JSB IFIX 

10057 000000 NOP 

10060 162040 LDA NUMOT>I 

10061 072101 STA NUHOl 

10062 072135 STA NUM03 

10063 036040 ISZ NUHOT 

10064 102201 SOC 

10065 026U0 JHP NUH02 



OUTPUT AN INTEQER ** 



0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 



10066 
10067 
10070 
10071 
10072 
10073 
10074 
1007S 
10076 
10077 
10100 
10101 
10102 



002400 
074174 
044462 
006021 
040326 
040330 
040133 
003004 
070172 

040367 
002020 

000000 

060153 



NUr«01 



CLA 

STB B14>1 

ADB M1000 

SSBfRSS 

ADA .3 

ADA .6 

ADA CCNT 

CMArlNA 

STA MLBX14.1 

ADA .74 

SSA 

NOP 

LDA SIGN 



NUMBER IN (A) AND (B) 

SAVE NUMBER 

SIQNT 

NO 

YESr NE9ATIVE NUMBER? 

NO 

YES, INVERT IT 



STORE 

SIGN 

SAVE NUMBER 
INTE6ERIZE 

SET 

END-OF-LINE 
OPERATION 
BUMP RETURN ADDRESS 
WAS IT AN INTEGER? 
NO 



SAVE 

INTEGER 
5 OR MORE 

CHARACTERS? 
YES 
COMPUTE 

END-OF-FIELD 
SAVE MARKER TO 

END-OF-FIELD 
ENOUGH 

ROOM? 
NO 
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0140 


10103 


002002 


SZA 


SIGN? 




0141 


10104 


015715 


J8B OUTCR 


YES, OUTPUT IT 




0142 


10105 


060174 


LDA B14>1 


OUTPUT 




0143 


10106 


114222 


JSB 0UTIA,I 


THE INTEGER 




0144 


10107 


126040 


JMP NUM0T,I 






0145 


10110 


003400 


NUf'02 CCA 


SET 'FIXED' 




0146 


10111 


073032 


STA FFLA6 


FLAG FALSE 




0147 


10112 


061603 


LDA EXPON 


LOAD 




0146 


10113 


066344 


LDB 6ETD6 


NUMBER 




0149 


10114 


114236 


JSB .FADArl 


IS NUMBER 




0150 


10115 


000472 


OEF HAXFX 


LESS THAN 




0151 


10116 


002021 


SSArRSS 


999999.5 7 




0152 


10117 


026127 


JMP NUMOb 


NO 




0193 


10120 


061603 


LOA EXPON 


YES, IS 




0154 


10121 


066344 


LDB 6ETDG 


NUMBER 




0155 


10122 


114236 


JSB •FADA,I 


LESS 




0156 


10123 


000474 


DEF MINFX 


THAN 




01S7 


10124 


064335 


LOB .12 


0.09999995? 




0158 


10125 


002021 


SSAfRSS 






0159 


10126 


037032 


fSZ FFLA6 


NO, SET FFLAG - AND SKIP 




0160 


10127 


064336 


NUr-OS LDB .15 


YES, LOAD 'FLOATING* FIELD 


MIDTH 


0161 


10130 


044133 


AD6 CCNT 


SAVE 




0162 


10131 


007004 


CMBrlNB 


END-OF-FIELD 




0163 


10132 


074172 


STB MLBXl^l 


MARKER 




0164 


10133 


044370 


AD6 .75 


ROOM 




0165 


10134 


006020 


SSH 


ENOUGH? 




0166 


10135 


000000 


NUf'U3 NOP 


NO 




0167** 










0168*** OUTPUT A FLOATING POINT NUMBER 


** 




0169** 










0170 


10136 


061603 


LDA EXPON 






0171 


10137 


071274 


STA MANTl 






0172 


10140 


066344 


LDB GETDG 


UNPACK 




0173 


10141 


015456 


JSB .FLUN 






0174 


10142 


075336 


STB MANT2 


NUMBER 




0175 


10143 


070154 


STA EXP 






0176 


10144 


060153 


LDA SIGN 






0177 


10145 


002002 


SZA 


SIGN? 




0176 


10146 


015715 


JSB OUTCR 


YES, OUTPUT IT 




0179 


10147 


002400 


CLA 


INITIALIZE COUNTER 




0160 


10150 


071603 


STA EXPON 


FOR DECIMAL EXPONENT 




0161 


10151 


050154 


CPA EXP 


EXPONENT ZERO? 




0162 


101S2 


026175 


JMP E0UT4 


YES 




0183 


10103 


015147 


E01T2 JSB MBY10 


NO, 




0164 


10154 


060154 


LDA EXP 


MULTIPLY 




0165 


10155 


003004 


CHAf INA 


NUMBER BY 10 




0166 


10156 


002020 


SSA 


UNTIL 




0187 


10167 


026162 


JMP •♦3 


IT IS 




0166 


10160 


035603 


ISZ EXPON 


GREATER 




0169 


10161 


026153 


JMP E0UT2 


THAN 1 




0190 


10162 


015200 


JSB DBY10 


DIVIDE BY 10 




0191 


10163 


061603 


LOA EXPON 






0192 


10164 


064154 


E0LT3 LDB EXP 


DIVIDE 




0193 


10165 


007004 


CMBrlNB 


NUMBER 




0194 


10166 


006021 


SSBrRSS 


BY 10 




0195 


10167 


026175 


JMP E0UT4 


UNTIL 
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0196 

0197 

0198 

0199 

0200 

0201 

0202 

0203 

0204 

0205 

0206 

0207 

0206 

0209 

0210 

0211 

0212 

0213 

0214 

0215 

0216 

0217 

0216 

0219 

0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 



10170 

10171 

10172 

10173 

10174 

10175 

10176 

14X77 

lk}200 

102101 

10202 

102^3 

10204 

102k)5 

10206 

10207 

1U210 

10211 

10212 

10213 

10214 

10215 

10216 

10217 

10220 

10221 

10222 

10223 

10224 

10225 

10226 

10227 

10230 

10231 

10232 

10233 

10234 

10235 

10236 

10237 

10240 

10241 

10242 

10243 

10244 

10245 

10246 

10247 

10250 

10251 

10252 

10253 

102S4 

10255 

10256 

10257 



071603 
015200 
003400 
041603 
026164 
003000 
0716X93 
064437 
076370 
007400 
07S677 
057032 
026213 
003000 

071677 

050324 

026217 

002021 

026225 

016344 

040357 

016715 

026227 

060355 

016715 

060357 

026226 

035677 

026213 

060355 

015715 

036370 

026223 

060133 

072101 

060132 

072135 

016344 

040435 

002020 

026303 

003400 

071274 

016370 

050355 

026241 

013570 

026262 

050333 

026254 

040360 

026276 

06(9357 

015715 

016370 

003400 



E0i^T4 



E0UT6 



E0UT6 



E0UT7 



E01T8 



ERKDl 



STA 


EXPON 


IT IS 


J8B 


DBYlk) 


LESS 


CCA 




THAN 


ADA 


EXPON 


1 


JMP 


E0UT3 




CHA 




SET EXPONENT 


STA 


EXPON 


TO TRUE VALUE-1 


LDB 


h7 


SET DIGIT 


STB 


RETCR 


COUNTER 


CCb 




SET DECIMAL 


STB 


OUTLN 


POINT FLAG 


CP8 


FFLAG 


FIXED POINT? 


JMF 


E0UT6 


NO 


CMA 




YES, SET 


STA 


OUTLN 


DECIMAL POINT FLAG 


CPA 


.1 


.It 


JMP 


E0UT5 


YES 


8SA| 


rRSS 


LEADING DECIMAL POINT? 


JMP 


E0UT7»2 


YES 


JSB 


GETOe 


OUTPUT 


ADA 


.48 


A 


JSB 


OUTCR 


DIGIT 


JMP 


E0UT8 




LOA 


.46 


OUTPUT 


JSB 


OUTCR 


DECIMAL POINT 


LOA 


.48 


OUTPUT 


JMP 


EOUTd-l 


LEADING ZERO 


IS2 


OUTLN 


DECIMAL POINT NEXT? 


JMP 


E0UT6 


NO 


LOA 


.46 


YESr 


JSB 


OUTCR 


OUTPUT IT 


ISZ 


RETCH 


MORE MANTISSA? 


JMP 


E0UT7 


YES 


LOA 


CCNT 


NO, 


STA 


NUMOl 


SAVE 


LOA 


BAOOR 


OUTPUT 


STA 


NUM03 


POINTERS 


JSB 


6ETDG 


NEXT DIGIT 


ADA 


M6 


FIVE OR 


SSA 




GREATER? 


JMP 


EOUTl 


NO 


CCA 




SET DECIMAL 


STA 


SYMCR 


POINT COUNTER 


JSB 


RETCR 


RETRIEVE CHARACTER 


CPA 


.46 


DECIMAL POINT? 


JMP 


ERNOl-1 


YES, FLAG IT 


JSB 


0I6CK 


NO, DIGIT? 


JMP 


ERND2 


NO 


CPA 


.9 


YES, 9? 


JMP 


• ♦3 


YES 


ADA 


.49 


NO, BUMP 


JMP 


ERND3 


DIGIT 1 


LOA 


.48 


OVERLAY 


JSB 


OUTCR 


A ZERO 


JSB 


RETCK 


BACKSPACE 


CCA 




DECREMENT 
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0252 

0253 

13254 

0255 

0256 

0257 

0256 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

027K> 

0271 

U272 

^273 

0274 

0275 

0276 

9277 

0278 

0279 

0260 

0281 

0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0296 

0299 

0300 

0301 

0302 

0303 



10260 

10261 

10262 

14263 

10264 

10266 

10266 

10267 

10270 

10271 

10272 

10273 

10274 

10275 

10276 

10277 

10300 

10301 

10302 

10303 

10304 

10305 

10306 

10307 

10310 

10311 

10312 

10313 

10314 

12315 

10316 

10317 

10320 

10321 

10322 

10323 

10324 

10325 

10326 

10327 

10330 

10331 

10332 

10333 

10334 

10335 

10336 

10337 

10340 

10341 

U342 

10343 



041274 
026242 
015715 
035603 

000000 

060360 

067032 

006002 

026276 

015715 

060357 

035274 

026271 

060355 

015715 

062101 

070133 

062135 

070132 

037032 

026333 

060364 

015715 

060354 

065603 

006020 

007005 

060353 

075603 

B15715 

065603 

060397 

044442 

006020 

026325 

002004 

026320 

044361 

075603 

015715 

061603 

015715 

126040 

016370 

050357 

026340 

015715 

126040 

060345 

015715 

016370 

026333 



ERND2 



ERND3 



EGITI 



E0LT9 



EOtl0 



ADA SYMCK 


DECIMAL POINT 


JMP ERNDl 


COUNTER 


J88 OUTCR 


RESTORE CHARACTER 


I8Z EXPON 


CORRECT 


NOP 


EXPONENT 


LOA .49 


OVERLAY A I 


LOB FFLA6 


FIXED 


SZB 


POINT? 


JHP ERN03 


NO 


JSB OUTCR 


YES, OUTPUT CHARACTER 


LDA .48 


PREPARE TO OVERLAY A ZERO 


IS2 SYMCK 


DECIMAL POINT NEXT? 


JMP *-3 


NO 


LDA .46 


YES 


JSB OUTCK 




LDA NUMOl 


RESTORE 


STA CCNT 


OUTPUT 


LDA NUM03 


POINTERS 


STA BADDR 




ISZ FFLAS 


NO, FIXED POINT? 


JMP fcOUT9 


YES 


LDA E 


NO, 


JSB OUTCR 


OUTPUT •£• 


LDA .45 


LOAD •-• 


LDB EXPON 


POSITIVE 


SSB 


EXPONENT? 


CHRf INBrRSS 


NO 


LDA ,43 


YES, LOAD •♦• 


STB EXPON 




JSB OUTCK 


OUTPUT SIGN 


LDB EXPON 




LDA .48 


COMPUTE 


ADB M10 




SSB 


EXPONENT 


JMP **Z 




INA 


DIQIT 


JMP *-4 




ADB .58 


COMPUTE 


STB EXPON 


SECOND DieiT 


JSB OUTCR 


OUTPUT 


LDA EXPON 




JSB OUTCK 


EXPONENT 


JMP NUMOTrl 




JSB RETCR 


RETRIEVE CHARACTER 


CPA .46 


ZERO? 


JMP EOU10 


YES 


JSB OUTCR 


NO, RESTORE CHARACTER 


JMP NUMOTrl 




LDA .32 


OVERLAY 


JSB OUTCR 


A BLANK 


JSB RETCR 


BACKSPACE 


JMP E0UT9 
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0306* 

0306* 

0307* 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0316 

0319 

0320 

K321 

0322 

0323 

0324 

0325 

0326 

0327 

0528* 

0329* 

0330* 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345* 

0346* 

0347 
0348 
0349 
0350 



** 9ET DIGIT TO OUTPUT •* 



10344 
10345 
10346 
10347 
ltf3S0 
10351 
10352 
10353 
10354 
10355 
10356 
103S7 
10360 
10361 
10362 
10363 
10364 
10365 
13366 
10367 



000000 
015147 
064154 
007004 
010430 
001200 
006324 
026351 
010376 
070615 
064154 
007004 
001300 
006024 
026360 
021274 
065336 
015113 
060615 
126344 



GET06 NOP 
J8B 
LDB 

CMB 
AND 

RAL 

sse 

JMP 
AND 
8TA 
LDB 
CHB 
RAR 
S8B 
JMP 
XOR 
LOB 
JSB 
LDA 
JMP 



HBY10 
EXP 
»INB 
HIMSK 

,INB 
•-2 

MSK0 
NUMCK 
EXP 
, INB 

rINB 
• -2 

MANTl 
MANT2 
NORML 
NUMCK 
6ET06rI 



MULTIPLY BY 10 

GET EXPONENT IN (B) 

AS NEGATIVE 
KEEP 5 HIGH BITS OF 
NORMALIZE TO BIT 15 
ROTATE INTEGER 

INTO <A) 
EXTRACT 

DIGIT 
ROTATE 

BACK 



REMOVE 

DIGIT 
NORMALIZE REMAINDER 
LOAD <A) WITH DIGIT 



(A) 



** 

* 
10370 
10371 
10372 
10373 
10374 
10375 
10376 
10377 
10400 
10401 
10402 
10403 
10404 
10405 



06074 
06105 
06147 
06163 



RETRIEVE CHARACTER FROM OUTPUT BUFFER •* 



000000 REICR NOP 

064133 LDB CCNT 

044431 ADB Ml 

074133 STB CCNT 

160132 LDA BADDRrI 

006011 SLBfRSS 

001727 ALF,ALF 

010376 AND MSK0 

004010 SL6 

126370 JMP RETCHrl 

064132 LOB BADOK 

044431 ADB HI 

074132 STB BAODR 

126370 JMP RETCRrI 



DECREMENT 
CHARACTER 
COUNT 
POSITION 
AND 

EXTRACT 
CHARACTER 
FIRST CHARACTER 
NO 

YES, DECREMENT 
BUFFER 
POINTER 



OF MORD? 



Al 
A2 
CI 
C2 



EQU 8ETDP 
EQU 8TSRH 
EQU FLM8T 
EQU FVSRH 



LIBRARY ROUTINES 
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0352* 

0353* 

03S4* 

0355* 

0356* 

0357* 

0358* 

0359* 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0366 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0376 

0379 

0380 

0381 

0362 

0383 

0364 

0385 

0386 

0387 

0368 

0389 

0390 

0391 

0392 

0393 

0394 

0395 

0396 

0397 

0398 

0399 

10400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 



SUBROUTINE TO CALCULATE TAN(X) 



CALLED BY A JHP ETAN WITH THE ARGUMENT 
IN FLOATING RADIANS IN THE REGISTERS. 
THE FLOATING RESULT IS RETURNED IN A I B 



10406 

10407 

10410 

10411 

10412 

10413 

10414 

10415 

10416 

10417 

10420 

10421 

10422 

10423 

10424 

10425 

10426 

10427 

10430 

10431 

10432 

10433 

10434 

10435 

10436 

10437 

10440 

10441 

10442 

10443 

10444 

10445 

10446 

10447 

10450 

10451 

10452 

10453 

10454 

10455 

10456 

10457 

10460 

10461 

10462 

10463 

10464 

10465 



114240 

010475 

072501 

0765k)2 

114236 

010477 

017440 

177776 

017413 

B14477 

017432 

015423 

017440 

000002 

114236 

010501 

072501 

076502 

114237 

010477 

073032 

002020 

026467 

062507 

066510 

114237 

010501 

072503 

076504 

114240 

0103k)3 

114240 

010507 

114237 

010477 

017324 

010511 

114240 

010503 

072503 

076504 

063032 

002020 

026472 

062477 

066500 

114241 

010503 



ETAN JSB 
DEF 
8TA 
STB 
JSB 
DEF 
JSB 
DEC 
JSB 
JSB 

TRGER JSB 
JSB 
JSB 
DEC 
JSB 
DEF 
STA 
STB 
JSB 
DEF 
STA 
8SA 
JMP 
LDA 
LOB 
JSB 
DEF 

B01H1 STA 
STB 
JSB 
DEF 
JSB 
DEF 
JSB 
DEF 
JSB 
DEF 
JSB 
DEF 
STA 
STB 
LDA 
SSA 
JMP 
LDA 
LOB 
JSB 
DEF 



•FMPArl 
FOP I 
XTEMP 
XTEMP*1 
.FADArl 

Kl 

.PMR2 

-2 

.lENT 

ERROR 

FLOAT 

ARINV 

.PMR2 

2 

.FADAfl 

XTEMP 

XTEMP 

XTEMP+l 

.F8BA»I 

Kl 

SBOX 

ELSEl 

K2 

K24>1 

•FSBArl 

XTEMP 

YTEMP 

YTEMP*1 

.PMPAfI 

YTEMP 

.FMPArl 

K2 

.FSBA, I 

Kl 

.CHEB 

COEFF 

.FMPArl 

YTEMP 

YTEMP 

YTEMP*1 

SBOX 

ELSE2 

Kl 

Kl + 1 

.FOVA»I 

YTEMP 



4/PI 



X«X*4*ENTIERMX4U/4) 



TEMPORARY 

X<IT 

YES 

NO 



Y- 2-X 



Y"Y*CHEBy(2*Y**2-l) 

X<1 ? 

YES 
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0408 

0409 

0410 

0411 

0412 

0413 

0414 

0415* 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

0426 

0429 

04i0 



1046f> 
10467 
104/0 

iia47i 

10472 
10473 
10474 

10475 
10477 
10501 
10:>03 
10505 
10507 
10511 
10513 
10515 
10517 
10521 
10523 
10525 
10527 
10531 



124264 

062501 
066502 
026441 
062503 
066504 
124264 

050574 
040000 
000000 
000000 
000000 
040000 
076«((61 
066034 
057035 
050755 
043523 
076112 
066520 
070512 
000000 



ELSEl 



ELSE2 



JHP 
LDA 
LOB 
JMP 
LDA 
LD6 
JMP 



FOP I DEC 

Kl DEC 

XTEMP BS8 

YTEMP BBS 

UTEMP 088 

K2 DEC 

COEFF DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

OCT 



FR12A,I 

XTEMP 

XTEMP+l 

BOTHl 

YTEMP 

VTEMP*1 

FR12ArI 



ANS m 1/Y 



Y-X 



ANS • Y 



1.273239945 

1. 

2 

2 

2 

2. 

1 

2 

2 

3 

5 

7 



4/PI 



.4468E-6 

.013766E-7 

.604816E-6 

.906637E-5 

,4417038E-4 

•586101578E-3 

10675392857 

,7701474227 
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0432« 






0433* 


( 




0434* 






0435* 






0436* 






0437* 






0438* 






0439* 






0440* 






0441 


10532 


072501 


0442 


10633 


076502 


0443 


10534 


0600W1 


0444 


105s$5 


010376 


0445 


10536 


073032 


0446 


10537 


002002 


0447 


10540 


000010 


0446 


10541 


026576 


0449 


10542 


062477 


0450 


10543 


066500 


0451 


10544 


114241 


0452 


10545 


010501 


0453 


10S46 


072505 


0454 


10547 


076506 


0455 


10550 


114240 


0456 


10551 


010505 


0457 


10552 


114240 


0456 


10553 


010507 


0459 


10554 


114237 


0460 


10555 


010477 


0461 


10556 


017324 


0462 


10657 


010615 


0463 


10560 


114240 


0464 


10561 


010505 


0465 


10S62 


072503 


0466 


10563 


076504 


0467 


10564 


063032 


0468 


10565 


002002 


0469 


10566 


000010 


0470 


10567 


026601 


0471 


10670 


062501 


0472 


10571 


002020 


0473 


10572 


026604 


0474 


10573 


062611 


0475 


10574 


066612 


0476 


10575 


026606 


0477 


10576 


062501 


0476 


10677 


066502 


0479 


10600 


026546 


0460 


10601 


062503 


0461 


10602 


066504 


0462 


10603 


124264 


0483 


10604 


062613 


0484 


10605 


066614 


0465 


106196 


114237 


0486 


106147 


010503 


0467 


10610 


124264 



SUBROUTINE TO CALCULATE ATN(X) 



CALLED BY A JMP EATN WITH THE ARGUMENT 
IN FLOATING POINT FORH IN THE REGISTERS. 
THE FLOATING RESULT IN THE RANGE -PI/2 
TO Pl/2 IS RETURNED IN A & B 



EATN 



BTH 



ELSl 



ELS2 



ELS3 



STA XTEMP 




STB XTEMP4>1 




LDA 1 




AND MSK0 




STA 8B0X 


TAN • EXP OF 


8ZA 




SLA 


ABS (X) > 1 7 


JMP ELSl 


NO 


LDA Kl 




LDS Kltl 




JSB .FDVArl 




DEF XTEMP 


U«l/X 


STA UTEMP 




STB UTEMP*! 




JSB .FMPArl 




DEF UTEMP 




JSB .FMPArl 




DEF K2 




JSB .FSBArl 




DEF Kl 




JSB .CHEB 




DEF COEF 




JSB .FMPAfl 




DEF UTEMP 




STA YTEMP 




STB YTEMP+l 


Y«U*CHEBY(2*U' 


LDA SBOX 




SZA 




SLA 


ABS(X)>1 7 


JMP ELS2 


NO 


LDA XTEHP 




SSA 


X<0 7 


JMP ELS3 


YES 


LDA PIBY2 




LDB PIBY2*l 




JMP ELS34>2 


ANS ■ PI/2 - ) 


LDA XTEMP 




LDB XTEMP-fl 




JMP BTHl 


U»X 


LDA YTEMP 




LOB YTEMP41 




JMP FR12ArI 


ANS m Y 


LDA MP2 




LDB MP2*l 




JSB .FSBAfI 




DEF YTEMP 


AN8--PI/2-V 


JMP FR12A,I 
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0488* 














0489 


10611 


062207 


PIBY2 


DEC 


1.5707963268 


PI/2 


0490 


10613 


115570 


MP2 


DEC 


-1.5707963268 


-PI/2 


0491 


10615 


1(46671 


COEF 


DEC 


<-1.33034E-6 




0492 


10617 


056335 




DEC 


8.64688E-6 




0493 


10621 


131601 




DEC 


-56.99166E-6 




0494 


10623 


040033 




DEC 


3.821037E-6 




0495 


10625 


111013 




DEC 


-2.6215i96E-5 




0496 


10627 


060542 




DEC 


1.8574297E-4 




0497 


10631 


122573 




DEC 


-1.381195004E- 


•3 


0498 


10633 


05S471 




DEC 


.01113584206 




0499 


10635 


111620 




DEC 


-.1058929245 




0500 


10637 


070320 




DEC 


1.762747174 




0501 


1«>641 


000000 




OCT 








6503* 

0504* 

0505* 

0506* 

0507* 

0506* 

0509* 

0510* 

0511* 

0512 

0513 

0514 



10642 002020 

10643 015423 

10644 124264 



SUBROUTINE TO COMPUTE ABS(X) 



CALLED BY A JMP EABS MITH THE ARGUMENT 
IN FLOATING POINT FORM IN THE REGISTERS. 
THE ABSOLUTE VALUE IN FLOATING POINT 
IS RETURNED IN A t B 



EABS 



8SA 

JSB 
JMP 



ARINV 
FR12ArI 



NEGATIVE? 
YESr NEGATE 



IT 
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0002* 
0003* 
0004* 
06.05* 
0006* 
0007* 
0006* 
0009* 

0ei0 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0628 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0l2i42 

0043 

0044 

0k)45 

0046 

0047 

0(>«48 

0gi49 

0050 

0051 

0052* 

0k)53 

0054 

0055 

0056 

0057 



10645 
10646 
10647 
10650 
10651 
10652 
10653 
10654 
10655 
10656 
10657 
10660 
10661 
10662 
10663 
10664 
10665 
10666 
10667 
10670 
10671 
10672 
10673 
10674 
10675 
10676 
10677 
10700 
10701 
10702 
10703 
10704 
10705 
10706 
10707 
10710 
10711 
10712 
10713 
10714 
10715 
10716 



114236 
010611 
114240 
010717 
072501 
076502 
114236 
010477 
017440 
177776 
017413 
026417 
017432 
114240 
010721 
114236 
010501 
072501 
076502 
114237 
010477 
002020 
026702 
062507 
066510 
U4237 
010501 
072501 
076502 
062501 
066502 
114240 
010501 
017440 

000001 

114237 
010477 
017324 
010723 
114240 
010501 
124264 



SUBROUTINE TO CALCULATE SIN(X) 



CALLED BY A JNP E8IN MITH THE ARSUMENT 
IN FLOATING RA0IAN8 IN THE RE6ISTERS. 
THE FL0ATIN8 RESULT IS RETURNED IN A t B 



ECCS 



ESIN 



10717 050574 

10721 100000 

10723 047605 

1072b 134143 

10727 045261 



JSB 
OEF 
JSB 
DEF 
8TA 
STB 
JSB 
DEF 
JSB 
DEC 
JSB 
JHP 
JSB 
JSB 
DEF 
JSB 
DEF 
STA 
STB 
JSB 
DEF 
SSA 
JHP 
LOA 
LDB 
JSB 
DEF 
STA 
STB 
LDA 
LDB 
JSB 
DEF 
JSB 
DEC 
JSB 
DEF 
JSB 
DEF 
JSB 
OEF 
JMP 



TOPI DEC 

nM4 DEC 

CUEFl DEC 

DEC 

DEC 



PAST 



•FADA^I 

PIBY2 

.FHPArl 

TOPI 

XTEMP 

XTEMP+l 

•FAOArl 

Kl 

,PWR2 

-2 

,IENT 

TROER-l 

FLOAT 

.FMPA,I 

hM4 

•FADArl 

XTEMP 

XTEMP 

XTEMP*! 

.FSBA,I 

Kl 

PAST 

K2 

K2*l 

.FSBArl 

XTEMP 

XTEMP 

XTEMP*1 

XTEMP 

XTEMP*1 

,FMPA,I 

XTEMP 

.PNR2 

1 

•FSBArl 

Kl 

• CHEB 

COEFl 

.FMPAfl 

XTEMP 

FR12ArI 



X«2*X/PI 



ERROR IF EXPONENT >^- 15 



X»X-4*ENTIER((X*i)/4) 



X«l ? 
YES 



X-2-X 



ANSaX<fCHEBY(2*X*«2-l) 



.636619772 
-4. 

1.18496E-6 

-1.365875E-4 

9.118016E-3 



2/PI 
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0058 10731 133371 

0059 10733 050656 

0060 lid73S 000000 



DEC -.2862615692 
DEC 2.5525579248 
OCT 



0062* 
e(u63* 
0064* 
0065* 
0066* 
0067* 
0666* 
0069* 
0070* 

01671* 

0^72 
0td73 
01^74 
0075 
0076 
0977 
0076 
0079 
0080 
01^81 
0^82 
01083 
0064 
0085 
0(d86 
0087 
0086 
0089 
0090 
0091 
0092 
0093 
0k)94 



SUBROUTINE TO COMPUTE RND(X) 



THE AROUHENT OF RNO IS A DUNHY ONE 
THE ROUTINE GENERATES A RANDOM NUMBER 
IN THE A & B REGISTERS 



R«X/rtr X»C*X HOC M, 



10736 
10737 
1074(1 
10741 
10742 
10743 
10744 
10/45 
10746 
10747 
10750 
10761 
10752 
10753 
10754 
10755 
107S6 
10797 
10760 
10761 
10762 
10763 
10764 



002400 
070154 
060155 
001000 
040155 
064156 
004065 
040001 
064156 
005275 
002004 
004066 
044156 
001675 
002104 
044470 
002040 
002004 
001665 
070155 
074156 
015020 
124264 



ERNU 



M-2t31r C"2 


♦15 ♦ 3 




CLA 


X IS INITIALLY 1 




STA EXP 


INITIALIZE EXPONENT 




LDA XH 


COMPUTE 




ALS 


HIGH 




ADA XH 


PART 




LOB XL 


2*XH 




CLEfERB 


♦ XH ♦ 




ADA 1 


XL*2«15 




LOB XL 






RBLrCLEfSLBr 


ERB ADO XL(15) TO 




INA 


(A) (FROM 2*XL» 




CLErELB 


2*XL 




AOB XL 


♦ XL 




ELA,CLE,SLA, 


ERA ADD OVERFLOW 




CLE#INA 


TO (A) 




AOB FLGBT 


ADD IN TRAILING BIT OF XL*2* 


IS 


SEZ 


ADO OVERFLOW 




INA 


TO (A) 




ELArCLE,ERA 


ERASE A(15) 




STA XH 


STORE 




STB XL 


INTEGER 




JSB .PACK 


NORMALIZE AND PACK 




JHP FR12A,I 
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0096* 

0^97* 

0098* 
0099* 






SUBROUTINE TO CALCULATE 80R(X) 














0100* 






CALLED BY 


A JMP ESOR NITh THE ARGUMENT 


0101* 






IN FLOATINS POINT 


FORM IN THE REGISTERS 


0102* 






THE FLOATING RESULT IS RETURNED IN A i 


0103* 














0104 


10765 


002003 


ES(R 


SZA 


,RSS 


X»0 r 


0105 


10766 


124264 




JMP 


FRi2A,l 


YE8» ANS • 


0106 


10767 


002020 




SSA 




X<0 ? 


0107 


10770 


014477 




JSB 


ERROR 


YES ERROR 


0106 


10771 


072501 


SQREH 


! STA 


XTEMP 




0109 


10772 


015456 




JSB 


,FLUN 




0110 


10773 


000031 




SLA 


rARS 


EXP(X) ODD? 


0111 


10774 


027034 




JMP 


ODD 




0112 


10775 


040431 




ADA 


Ml 




0113 


10776 


073032 




STA 


SBOX 


8B0X«EXP0(X)/2-! 


0114 


10777 


076502 




STB 


XTEMP*! 


LOW MANTISSA/2 


0115 


11000 


062501 




LDA 


XTEMP 




0116 


11001 


114240 




JSB 


.FMPA,I 




0117 


11002 


011047 




DEF 


SA2 




0118 


lltf03 


114236 




JSB 


.FADA^I 




0119 


11004 


011053 




DEF 


SB2 


Y«8B2*SA2*X 


0120 


11005 


072503 


BTH2 


STA 


YTEMP 




0121 


ir^06 


076504 




STB 


YTENP+1 




0122 


11007 


062501 




LDA 


XTEMP 




0123 


11^^10 


066502 




LD6 


XTEMP*1 




0124 


11011 


114241 




JSB 


.FDVA,I 




0125 


11012 


01i»503 




DEF 


YTEMP 




0126 


11(913 


114236 




JSB 


.FADAf I 




0127 


11014 


010503 




DEF 


YTEMP 




0128 


11015 


017440 




JSB 


.PMR2 




0129 


11016 


177777 




DEC 


-1 




0130 


11017 


072503 




STA 


YTEMP 




0131 


11020 


076504 




STB 


YTEMP+1 


Y«(Y*X/Y)/2 


0132 


11021 


062501 




LOA 


XTEMP 




0133 


11022 


066502 




LDB 


XTEMP*1 




0134 


11023 


114241 




JSB 


•FOVArl 




0135 


11024 


010503 




DEF 


YTEMP 




0136 


11025 


114236 




JSB 


.FADArl 




0137 


11026 


010S03 




DEF 


YTEMP 




0138 


11027 


072503 




STA 


YTEMP 




0139 


11030 


076504 




STB 


YTEMP*! 




0140 


11031 


017440 




JSB 


.PWR2 




0141 


11032 


000000 


SBCX 


OCT 







0142 


11033 


124264 




JMP 


FR!2A,I 


ANS«(P*F/P»*2**8B0X 


0143 


11034 


073032 


ODE 


STA 


SBOX 


SBOX - EXP(X)/2 


0144 


11035 


044376 




AOB 


MSK0 




0145 


11036 


076502 




STB 


XTEMP*l 


LOW MANTISSA/2 


0146 


11037 


062501 




LDA 


XTEMP 




0147 


11040 


114240 




JSB 


.FMPA,I 




0148 


11041 


011045 




DEF 


SAl 




0149 


11042 


114236 




JSB 


•FAOArl 




0150 


11043 


011051 




DEF 


SBl 




0151 


11044 


027005 




JMP 


BTH2 


Y*SB!*8A1*X 
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0152* 

0153 11045 070000 SAl DEC .675 

0154 11047 045000 8a2 DEC .578125 

0155 11051 043524 SBl DEC .27863 

0156 11053 066000 882 DEC .421875 



0158« •******•*****«•••**••*•******* 

0159* SUBROUTINE TO CALCULATE INT(X) 

0160* ****«*••*•*****•**••••*•**•*«* 

0161* 

0162* CALLED BY A JMP EINT WITH THE ARGUMENT 

0163* IN FLOATINB POINT FORH IN THE REGISTERS. 

0164* ENTIERIX) IS FLOATED AND RETURNED IN A & B 

0165* 

0166* CALCULATES THE FLOATINO POINT EQUIVALENT 

0167* OF ENTIER(X) 

0168* 

0169 11055 077032 ElhT STB SBOX SAVE LOW WORD 

0170 11056 064344 LDB .31 PRESET BIAS FOR 

0171 11057 074154 STB EXP BINARY POINT 

0172 ll!r)60 067032 LDB SBOX 24-BlT 

0173 11061 015364 JS6 IFIX INTEGER? 

0174 Hiaii2 027065 JHP EINTl NO 

0175 11063 015020 J86 .PACK YES, PACK IT 

0176 llvtb4 124264 JMP FR12A»I 

0177 1H165 061614 EINTl LDA GETCR RETRIEVE 

0178 11ID66 067032 LDB SBOX NUMBER 

0179 llKb7 124264 JMP FR12A,I 
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0U1* 

0162* 

0i83* 

0184« 

0i85« 

0186* 

0187* 

0188* 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 

0211 

0212 

0213 

0214 

0215 

0216 

0217 

0216 

0219 

0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 



SUBROUTINE TO CALCULATE L06(X) 



CALLED BY A JHP EL08 WITH THE AR8UHENT 
IN FLOATING POINT FORM IN THE REQISTERS. 
THE FLOATING R£SULT IS RETURNED IN A t B 



11SJ70 

11071 

11072 

11073 

11^74 

11^75 

11076 

11877 

11100 

U101 

111^2 

U103 

1U04 

11105 

1U06 

11107 

11110 

11111 

11112 

11113 

11114 

11115 

11U6 

11117 

11120 

11121 

11122 

11123 

11124 

11125 

11126 

11127 

11130 

11131 

11132 

11133 

11134 

11135 

11136 

11137 

1114PI 

11141 

11142 

11143 

11144 

11145 

11146 

11147 



017072 

124264 

000000 

002003 

027150 

002020 

014477 

072501 

015456 

076502 

017432 

072503 

076504 

062S01 

066502 

114236 

011154 

072505 

076&«6 

0625i<)l 

066502 

114237 

0111!34 

114241 

010505 

072505 

076506 

114240 

010505 

114237 

011164 

072601 

076502 

063162 

067163 

114241 

010901 

114236 

011160 

114240 

010505 

114237 

000466 

114236 

010503 

114240 

011156 

1270/2 



ELCO JSB 
JMP 

.LC6 NOP 
SZA 

jhP 

SSA 
JSB 
L06ER 8TA 
JSB 
STB 
JSB 
STA 
STB 
LOA 
LDB 
JSB 
DEF 
STA 
STB 
LDA 
LDB 
JSB 
DEF 
JSB 
DEF 
STA 
STB 
JSB 
DEF 
JSB 
DEF 
STA 
STB 
LDA 
LDB 
JSB 
DEF 
JSB 
DEF 
JSB 
DEF 
JSB 
DEF 
JSB 
OEF 
JSB 
DEF 
JMP 



.LOG 
FR12ArI 

,KSS 
.L061 

ERROR 

XTEMP 

.FLUN 

XTEMP*1 

FLOAT 

VTEMP 

YTEMP*1 

XTEMP 

XTEMP+1 

.FADA,I 

R22 

UTEMP 

UTEMP*1 

XTEMP 

XTEMP+1 

.FSBArl 

R22 

•FOVA^I 

UTEMP 

UTEMP 

UTEMP*1 

.FMPA,I 

UTEMP 

.FSBAr! 

CCC 

XTEMP 

XTEMP*1 

MB 

MB4>1 

,FDVA,I 

XTEMP 

•FAOArl 

AAA 

•FMPArl 

UTEMP 

•FSBArl 

HALF 

•FADA^I 

YTEMP 

.FMPA,I 

LE2 

.LOOW 



NON-ZERO ARGUMENT? 

NO 

YES, POSITIVE ARGUMENT? 

NO 

YES 



V-EXPOIXJ 



U»X4-SQR(0.5) 



U«(X.SOR(0.5))/U 



ANS«LO6(2)*(EXPO(X)-0.94-U* 
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0237* 












(A-B/X)» 


0238 


11150 


0144/7 


.LC61 


JSB 


EHROK 


U06 OF ZERO 


0239 


11161 


06>4470 


LNZR 


LDA 


MNE8 


RETURN 


0240 


1U52 


064400 




LDB 


B776 


NEGATIVE 


i'241 


11153 


127H72 




JMP 


.L06,I 


INFINITY 


0242* 














024^ 


11154 


055202 


R22 


DEC 


.707106781 


SQR(0.5) 


0244 


11136 


054271 


LE2 


DEC 


.6931471806 LOG BASE 


0245 


lU'SPt 


051200 


AAA 


DEC 


1.2020070987 


*^246 


11162 


125606 


MB 


DEC 


-2.6396577035 



E OF 2 



0247 11164 065«410 CCC DEC 1.6567626301 



0249* 

0250* 

0251* 

0252* 

£1253* 

K.i54* 

fc255* 

0256* 

0257* 

id256* 

0259* 

0260* 

0261 

^2b2 

0263 

0264 

0265 

0266 

dib7 

0266 

0269 



SUEROUTINE TO COMPUTE 8GN(X) 



CALLED BY A 
IH FLOATING 
ON KtTURN A 



JrtH ESGN WITH THE ARGUMENT 
POINT FORM IN THE REGISTERS, 
& U CONTAIN THE FOLLOMINGt 



IF X>0 THEN +1. 

IF X»0 THEN 

IF X<0 THEN -1. 

1106 006400 tSGN CLB 
1167 002(603 SZAfRSS 

1170 124204 JMP FR12A,I 

1171 002021 SSArRSS 

1172 0b4J25 LDB .2 

1173 060470 LDA FL6BT 

1174 e.06002 SZB 

1175 0013VJ0 RAR 

117(S 124204 JMP FR12A,I 



ZERO? 

YES 

NOf POSITIVE? 

YES, SET EXPONENT 

LOAD MANTISSA 

POSITIVE? 

YESf CORRECT MANTISSA 
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0271* 






0272. 






0273« 






0274* 






0275* 






0276* 






0277* 






0278* 






0279 


11177 


017201 


0280 


11200 


124264 


0281 


11201 


000000 


0282 


11202 


U4240 


0283 


11203 


011322 


0284 


11204 


072501 


02B5 


1120S 


076502 


0286 


11206 


01/413 


0287 


11207 


027301 


0288 


11210 


073274 


0289 


11211 


017432 


0290 


11212 


072503 


0291 


11213 


076504 


0292 


11214 


063274 


0293 


11215 


043310 


0294 


11216 


002021 


0295 


11217 


027304 


0296 


ll22e 


043311 


0297 


11221 


002020 


0298 


11222 


027276 


0299 


11223 


062501 


0300 


11224 


066502 


0301 


11225 


114237 


0302 


11226 


010503 


0303 


11227 


072501 


0304 


11230 


076502 


0305 


11231 


114240 


0306 


11232 


010501 


0307 


11233 


072505 


0306 


11234 


076506 


0309 


11235 


114236 


0310 


11236 


011312 


0311 


11237 


072503 


0312 


11240 


076504 


0313 


11241 


063314 


0314 


11242 


067315 


0315 


11243 


114241 


0316 


11244 


010503 


0317 


11245 


072503 


0316 


11246 


076504 


0319 


11247 


063316 


0320 


11250 


067317 


0321 


11251 


114240 


0322 


112S2 


010505 


0323 


11253 


114236 


0324 


11254 


011320 


0325 


11255 


114237 


0326 


11256 


010901 



****************************** 
SUBROUTINE TO CALCULATE EXP(X) 



CALLtD BY A JMP EEXP WITH THE AROUHENT 
IN FLOATING POINT FORH IN THE REGISTERS. 
TH£ FLOATINe RtSULT IS RETURNED IN A t B 



EEXP 



.EXP 



JSB ,EXP 




JHP FR12ArI 




NOP 




JSB .FMPA^I 




DEF L2E 




8TA XTEMP 




STB XTEMP*! 


X»Z*L0G2(E) 


JSB .lENT 




JMP .EXPl 




STA INTE 


INTE • ENTIE 


JSB FLOAT 




STA YTEMP 




STB YTEMP*1 


Y-ENTIERIX) 


LDA INTE 




ADA M124 




SSArRSS 


INTE >'»!24 T 


JMP EXPCR-l 


YESrERROR 


ADA .244 


INTE <-12f 7 


SSA 




JMP ZERE 


YES,ANS-i 


LDA XTEMP 




LDB XTEMP*! 




JSb .FSBArl 




DEF YTEMP 




STA XTEMP 




STB XTEMP*! 


X«X*ENTIER(X 


JSB .FMPArl 




OEf XTEMP 




STA UTEMP 




STB UTEMP*! 


U«X**2 


JSB .FADAfI 




DEF AAAA 




STA YTEMP 




STB YTEMP*! 


Y«X**2*AAAA 


LDA BBBB 




LDB BBBB*! 




JSB .FOVArl 




DEF YTEMP 




STA YTEMP 




STB YTEMP*! 


Y«BBBB/Y 


LDA CCCC 




LOB CCCC*! 




JSB .FMPArl 




DEF UTEMP 




JSB .FADAfI 




DEF DODD 




JSB .FSBArl 




DEF XTEMP 
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0327 

0326 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0390 

0351 

0352* 

0353 

0354 

Ei355 

0356 

0357 

0356 

0359 



11257 
11260 
11261 
11262 
11263 
11264 
11265 
11266 
11267 
11270 
11271 
11272 
11273 
11274 
11275 
11276 
11277 
11300 
11301 
11302 
11303 
11304 
11305 
11306 
11307 

11310 
11311 
11312 
11314 
11316 
11320 
11322 



114237 
010503 
072503 
076504 
062501 
066502 
114241 
010503 
114236 
000466 
037274 
000000 
017440 
000000 
127201 
002400 
006400 
127201 
06;i401 
002020 
027276 
014477 
06i»422 
064432 
127201 

177604 

000364 
053552 
046477 
043372 

047643 
056125 



INTE 
ZERE 



.EXPl 



EXPER 



JSB 
OEF 
STA 
STB 
LDA 
LOB 
JSB 
DEF 
JSB 
OEF 
I8Z 
NOP 
JSB 
OCT 
JHP 
CLA 
CLB 
JNP 
LOA 
SSA 
JMP 
JSB 
LDA 
LDB 
JhP 



•FSBAf I 

YTEMP 

YTEHP 

YTEMP*1 

XTEMP 

XTENP*l 

•FDVArl 

YTEMP 

•FAOAfl 

HALF 

iNTE 

• PNR2 

.EXP, I 



.EXP, I 
X2TMP 

ZERE 
ERROR 
INF 
M2 
.EXP, I 



Y»-X*DDDD*CCCC»X**2-Y 



AN8»(0,5*X/Y)*2**!NTE 



ANS«0 



M124 DEC -124 

.244 DEC 244 

AAAA DEC 87.417497202 

bBEB DEC 617.9722695 

CCCC DEC .03465735903 

DDCD DEC 9.9545957821 

L2E DEC 1.4426950409 
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0361* 

0362* 

0363* 

0364* 

0365* 

0366* 

0367* 

0368* 

0369* 

0370* 

0371* 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

0380 

0381 

0382 

0383 

0364 

0365 

0366 

0387 

0388 

0389 

0390 

0391 

0392 

0393 

0394 

0396 

0396 

0397 

0398 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

dAfdB 

0409 

0410 

0411 

0412 

0413 

0414 

0415 

0416 



SUBROUTINE TO COHPUTE CHFBY(X) 



CALLING SEQUENCE! 



11324 

11325 

11326 

11327 

11330 

11331 

1133? 

11333 

11334 

11335 

11336 

U337 

U340 

11341 

11342 

11343 

11344 

11345 

11346 

11347 

11350 

11351 

11352 

11353 

11354 

11355 

U356 

11357 

11360 

11361 

11362 

11363 

11364 

I13b5 

11366 

11367 

11370 

11371 

1137? 

11373 

11374 

11375 

11376 

11377 

11400 



000000 

114240 

010507 

073401 

077402 

167324 

077407 

160001 

006004 

164001 

073411 

077412 

002400 

079405 

073406 

037407 

037407 

163407 

002003 

027371 

063405 

067406 

073403 

077404 

063411 

067412 

073405 

077406 

114240 

011401 

114237 

0114103 

114236 

111407 

073411 

077412 

027343 

063411 

067412 

114237 

011403 

114240 

000466 

037324 

127324 



LOA X 

LDE X4.1 

JSE .CHEB 

DEF C 



(FLOATING) 

(RESULT FLOATING) 

(TABLE OF CHEBY.COEFFS.^FLOATING) 



.CHEB 



LOPC 



COLT 



NOP 

JS6 

DEF 

STA 

STB 

LDB 

STB 

LOA 

INB 

LOB 

STA 

STB 

CLA 

STA 

STA 

ISZ 

ISZ 

LOA 

SZAr 

JHP 

LOA 

LDB 

STA 

STB 

LOA 

LDB 

STA 

STB 

JSB 

DEF 

JSB 

DEF 

JSB 

DEF 

STA 

STB 

JHP 

LOA 

LOB 

JSB 

DEF 

JSB 

DEF 

ISZ 

JMP 



.FMPArl 

K2 

X2TMP 

X2TMP+1 

• CHEBf I 

CTMP 

Irl 

Irl 

DTMP 
DTMP+l 

BTMP 

BTMP*l 

CTMP 

CTMP 

CTMP, I 

RSS 

COUT 

BTMP 

BTMP+1 

ATMP 

ATMP*i 

DTMP 

DTMP+l 

BTMP 

BTMP*1 

.FMPArl 

X2TMP 

.FSBA,I 

ATMP 

.FADArl 

CTMP, I 

DTMP 

DTMP*l 

LOPC 

DTMP 

DTMP*1 

.F8BA,I 

ATMP 

.FMPA,I 

HALF 

.CHEB 

•CHEBrl 



X2 mx*2 

C POINTS TO COEFFICIENT TABLE 

GET FIRST COEFF 
O-C(N) 

B*0 

N-N-1 

C(N)»0 7 

ZERO FLAGS END OF TABLE 

NO 

A«B 



B»0 



0«C(N) -A4-B*X2 



ANS»(0-A)/2 
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0417* 

0416 

0419 

0420 

0421 

0422 



11401 
11403 
11405 
11407 

11411 



000000 
000000 
0001000 
000000 
0001)00 



X2TMP 

ATKP 

BTfP 

CTf^P 

DTf«P 



BS8 
BS8 

BSS 
B8S 
BSS 



0424* 

042S* 

0426* 

0427* 

0428* 

0429* 

0430* 

0431* 

0432* 

0433* 

0434* 

0435* 

0436* 

0437 

0438 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446 

0447 

0446 

0449 

0450 

0451 



11413 
11414 
11415 
11416 
11417 
11420 
11421 
11422 
11423 
11424 
11425 
11426 
11427 
11430 
11431 



000000 
073401 
060001 
010376 
000033 
027424 
040444 
002021 
127413 
037413 
063401 
015364 
000000 
060001 
127413 



SUBROUTINE TO COMPUTE THE ENTIER OF A NUMBER 
MHCSE EXPONENT IS LESS TMAN IS 



CALLING SEQUENCES 



LDA 
LDA 
JSE 

jse 



X 

x*i 

.lENT. 
ERROR 



(FLOATINei 

(RESULT INTERGER) 
(EXIT IF EXP0(X)>14) 



lENT 



NOP 

STA X2TMP 
LDA 1 
AND M8K0 
SLAfRAR 
JMP •♦4 
ADA M15 
SSAyRSS 



JMP 
ISZ 

LOA 
JSB 
NOP 
LDA 
JMP 



.lENTrl 
.lENT 
X2TMP 
IFIX 

1 
.lENT^I 



STORE HIGH PART 
MOVE LON PART TO A 
ISOLATE EXPONENT 

IF NEGATIVE OK 

EXPO(X) > 14 
YES, ERROR RETURN 
NO BUMP RETURN POINT 
RESTORE HIGH PART 
CALL ENTIER 

PUT RESULT INTO (A) 
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0453* 

0454* 

0455* 

0456* 

0457* 

0456* 

0459* 

0460* 

0461 

0462 

0463 

0464 

0465 

0466 



11432 
11433 
11434 
11436 
11436 
11437 



000000 
064336 
074154 
006400 
015020 
127432 



****************************** 

SUBROUTINE TO FLOAT AN INTEGER 

****************************** 

CALLEL by JSB float WITH INTEGER IN A 

THE Floating point equivalent is returned 

IN A & B 



flcat 



nop 

LOB 
STB 
CLE 
JSB 
JMP 



.15 
EXP 

.PACK 
FLOATr I 



0468* 

0469* 

047li5* 

0471* 

0472* 

0473* 

0474* 

0475* 

0476* 

0477* 

0476* 

0679* 

0460* 

0481* 

0462* 

0483 

0464 

0485 

0486 

0487 

0488 

0489 

U490 

0491 

0492 

0493 

0494 

0495 

0496 



**************************************** 

SUBROUTINE TO MULTIPLY BY A POWER OF TWO 

**************************************** 

CALLING SEkiUENCE 



LDA X 

LDB X*i 

JSB .PWR2 

DEC N 



(FLOATING) 

(RESULT FLOATING) 
(INTEGER POWER) 



RETURNS WITH X*2*N IN A&B 

NO CHECK IS MADE FOR EXPONENT 

OVERFLOW OR UNDERFLOW 



11440 000000 .PWR2 NOP 

11441 0)02003 SZAfRSS 

11442 027454 JMP .RET 

11443 073401 8TA X2TMP 

11444 015456 JSB .FLUN 

11445 077402 STB X2TMP+1 

11446 143440 ADA .PWR2,I 

11447 001200 RAL 

11450 010376 AND MSK0 

11451 070001 STA 1 

11452 047402 AOB X2THP-»1 

11453 063401 LDA X2TMP 

11454 037440 .RET ISZ .PWR2 

11455 127440 JHP .PWR2,I 



X-0 ? 
YESr ANS«0 



NEW EXPO ■ (OLD EXPO) ♦N 
KEEP OLD MANTISSA 



0496 
0499 

0500 
0501 
0502 



07463 
075S2 
00163 
00164 
ll«32 



TTl 
TT2 
TT3 
TT4 



EQU 
EQU 
EQU 
EQU 



FFLA6 EQU 



.FDV 

IDIV 

TEMPS+4 

TEMPS»5 

SBOX 
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0002* 

0003* 

0004* 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016* 

2\dl7 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

01)28 

0029 

0030 

0031 

0id32 

0033 

0034 

0(d35 

0036 

0037 

0038 

0039 

il040 

0k)4l 

0042 

0043 

0044 

0ld45 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0i953 

0054 

0055 

0056 

0057 



MAtRiX STMT EXECUTION CONTROL 



1456 
1457 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1470 

1471 
1472 
1473 
1474 
1475 
1476 
1477 
1900 
1501 
1502 
1503 
1504 
1505 
15136 
1507 
1510 
1511 
1512 
1513 
1514 

1315 

1516 
1517 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1627 
1530 
1531 
1532 
1533 
1534 
1535 
1636 
1537 
1540 
1541 



160157 
034157 
010401 
002002 
027610 
160157 
010420 
070171 
090416 

00k001 

114250 

160157 
010401 
002003 
124256 
114231 
006007 
124267 
034157 
160001 

070173 
060171 
050416 
027561 
044325 
160001 
070174 
010376 
003004 
070175 
070176 
160001 
001727 
010376 
003004 
070177 
114255 
002400 
073767 
060157 
05kil43 
027540 

160157 
010420 
050404 
037767 
02/540 
006400 
057767 
015656 
160173 
034173 



EMAT LDA 
1S2 
AND 
SZA 
JMP 
LDA 
AND 
STA 
CPA 
RSS 
JSB 

EHATl LDA 
AND 
SZAr 
JMP 
JSB 
INBr 
JMP 
ISZ 
LDA 
STA 
LDA 
CPA 
JMP 
ADB 
LDA 
STA 
AND 
CMAr 
STA 
STA 
LDA 
ALF, 
AND 
CMAr 
STA 
JSB 
CLA 
STA 
LDA 
CPA 
JMP 
LDA 
AND 
CPA 
ISZ 
JMP 

EMAT2 CLB 
CPB 
JSB 

EMAT3 LDA 
ISZ 



TEMPS, 1 

TEMPS 

MSKl 

EMAT7 
TEMPS, I 
QPMSK 
MLBXl 
RDOP 

PRNIArl 

TEMPS, I 

HSKl 

RSS 

XEC4A,I 

SSYMA,I 

SZB,R8S 

ESM1A,I 

TEMPS 

1»I 

Bl 

MLBXl 

RDOP 

EMAT5 

• 2 

Ifl 

BUI 

MSK0 

INA 

B2 

B241 

ALF 

MSKB 

INA 

B3 

LCK2ArI 

MCKS 

TEMPS 

PRAOfi 

EMAT3 

TEMPS, I 

OPMSK 

B3000 

MCKS 

EMAT3 

MCKS 
EDELM 
Bl,! 
Bl 



MAT READ 

OR 

MAT PRINT? 
NO 
YES 
SAVE 

TYPE 
PRINT? 
NO 
YES 

LOAD 

OPERAND 
NULL? (END OF MAT PRINT) 
YES 

NO, SEARCH SYMBOL TABLE 
FOUND? 
NO 
YES 
SAVE 4RRAY 

BASE ADDRESS 

READ? 
YES 
NO 
SAVE 

DIMENSIONS 
SET 

COLUMN 
COUNTERS 

SET 

ROW 

COUNTER 
ENSURE ARRAY IS DEFINED 
SET DELIMITER 

AS COMMA 
MORE 

STATEMENT? 
NO 
YES 

EXTRACT DELIMITER 
SEMICOLON? 
YES 

COMMA 

DELIMETER? 
YES 
LOAD 

NEXT 
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eess ] 


1154? 


164173 


0059 ] 


11543 


034173 


0060 1 


11544 


015643 


0061 ] 


11545 


034175 


0062 1 


11546 


027535 


0063 1 


11547 


015677 


0064 ] 


11550 


015677 


0065 1 


11551 


060176 


0066 ] 


11552 


070175 


0067 1 


L1553 


034177 


0068 ] 


11554 


027540 


0069 1 


11555 


064157 


0070 1 


11556 


054143 


0071 I 


11557 


124256 


0^:72 ] 


L1560 


027A71 


0073* 






0^74 ] 


L1561 


074175 


0075 ] 


L1S62 


160157 


0076 ! 


11563 


010^20 


0677 ] 


L1564 


064157 


0078 ] 


11565 


054143 


0»79 


11566 


002400 


0060 


11567 


050412 


0081 1 


11570 


017732 


0082 ] 


11571 


060175 


0ki83 1 


L1572 


040325 


0iri84 1 


11573 


160000 


0085 1 


11574 


015336 


0066 ) 


11575 


001100 


0087 ] 


11576 


003004 


0068 ] 


L1577 


070177 


0k)69 ] 


11600 


114254 


0ii)90 ) 


L1601 


170173 


0091 1 


I16id2 


034173 


0^92 1 


I16td3 


174173 


0tas)3 ] 


L1604 


034173 


0094 1 


L1605 


034177 


01^95 1 


11606 


027600 


0096 1 


11607 


027555 


0097* 






0096 ] 


L1610 


114231 


0099 ] 


11611 


006004 


0100 ] 


11612 


160001 


1 ki 1 1 


L1613 


070177 


0102 1 


L1614 


074175 


0103 J 


Lieib 


044325 


0104 ] 


11616 


160001 


0105 ] 


L1617 


070200 


0106 ] 


L1620 


002404 


0107 ] 


Llft2l 


071656 


0108 1 


11622 


160157 


0109 1 


L1623 


034157 


0110 ] 


11624 


002020 


0111 1 


11625 


02/711 


0112 ; 


L1626 


010401 


0113 


11627 


002003 



EMAT4 



EMAT5 



EM*T6 



fcM*T7 



EM*T6 



tMATd 



LDB 


B1,I 


ELEMENT 


ISZ 


Bl 




JSB 


ENOUT 


OUTPUT IT 


ISZ 


B2 


ROW COMPLETE? 


JMP 


EMAT2 


NO 


JSB 


OUTLN 


YES, DO 


JSB 


OUTLN 


SPACING 


LDA 


B2«l 


RESET 


STA 


B2 


COLUMN COUNTER 


ISZ 


B3 


ARRAY EXHAUSTED? 


JMP 


EMAT3 


NO 


LOB 


TEMPS 


YES, MORE 


CPB 


PRAOD 


STATEMENT? 


JMP 


XEC4Af I 


NO 


JMP 


EMATl 


YES 


STB 


B2 


SAVE SYMBOL TABLE POINTER 


LDA 


TEMPS, I 


EXTRACT 


AND 


OPMSK 


NEXT OPERATOR 


LOB 


TEMPS 


STATEMENT 


CPB 


PRADD 


EXHAUSTED? 


CLA 




YES 


CPA 


62200 


• (« 7 


JSB 


HEDIM 


YES, REOIMENSION ARRAY 


LOA 


B2 


LOAD 


AOA 


.2 


ARRAY 


LOA 


0rl 


nlMENSIONS 


JSB 


MDIM 


SET 


ARS 




ARRAY 


CMA, 


^INA 


ELEMENT 


STA 


63 


COUNTER 


JSB 


FDAT,1 


FETCH VALUE 


STA 


BUI 


STORF 


ISZ 


Bl 




STB 


B1,I 


IT 


ISZ 


Bl 




ISZ 


B3 


ARRAY EXHAUSTED? 


JMP 


EMAT6 


NO 


JMP 


EMAT4 


YES 


JSB 


SSYMArl 


SAVE 


INB 




BASE ADDRESS 


LDA 


ifl 


OF DESTINATION 


STA 


B3 


ARRAY 


STB 


62 


SAVE SYMBOL TABLE ADDRESS 


ADB 


.2 


SAVE 


LDA 


If I 


ITS 


STA 


B34>1 


DIMENSIONS 


CLAi 


rlf^lA 


ASSUME MAT 


STA 


EDELM 


REPLACEMENT 


LDA 


TEMPS, I 


LOAD NEXT 


ISZ 


TEMPS 


OPERAND 


8SA 




ARRAY FUNCTION? 


JMP 


EMAU 


YES 


AND 


MSKl 


NO 


SZA 


pRSS 


SCALAR MULTIPLICATION? 



PAGE 
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0114 


11630 


027701 




JMP EMA10 


YES 


0115 


11631 


114231 




JSB SSYMArl 


NO 


0116 


11632 


006004 




INB 


SAVE 


0117 


11633 


160001 




LDA Ifl 


BASE 


0118 


11634 


070173 




8TA 81 


ADDRESS AND 


0119 


11635 


044325 




AOB .2 


DIMENSIONS 


0120 


11636 


160001 




LDA 1,1 


OF FIRST 


0121 


11637 


070174 




STA Bl-l-1 


SOURCE ARRAY 


0122 


11640 


064157 




LDB TEMPS 


STATEMENT 


0123 


11641 


054143 




CPB PRAOD 


EXHAUSTED? 


0124 


11642 


027662 




JMP EMAT9 


YES 


0125 


11643 


160157 




IDA TEMPSrI 


NO 


0126 


11644 


001100 




ARS 


EXTRACT 


0127 


11645 


001727 




ALFrALF 


AND 


0128 


11646 


010362 




AND .63 


RECORD 


0129 


11647 


040436 




ADA M6 


EMAT 


0130 


11650 


071656 




STA EDELM 


OPERATOR 


0131 


11651 


160157 




LDA TEMPSrI 


SAVE 


0132 


11602 


010401 




AND MSKl 




0133 


11653 


114231 




JSB SSYMArl 


BASE ADDRESS 


0134 


11654 


006004 




INB 




0135 


11655 


160001 




LDA 1,1 


AND DIMENSIONS 


0136 


11656 


070175 




STA B2 




0137 


11657 


044325 




ADS .2 


OF SECOND 


0138 


11660 


160001 




LDA Irl 




0139 


11661 


070176 




STA 82^1 


SOURCE ARRAY 


0140* 












0141 


11662 


061656 


EMATV 


LDA EDELM 


TRANSFER TO 


0142 


11663 


043666 




ADA LMAP 


APPROPRIATE 


0143 


11664 


1140t)0 




JSB 0,1 


ROUTINE 


0144 


11666 


124256 




JMP XEC4A,I 




0145* 












0146 


11666 


111666 


LMAP 


DEF LBASE-i,I 




0147 


11667 


012123 


LSASE 


DEF REPLC 




0146 


11670 


012103 




DEF ADD 




0149 


11671 


012116 




DEF SUB 




0150 


11672 


012331 




DEF MULT 




0151 


ll'>73 


012170 




DEF SZER 




0152 


11674 


012145 




DEF LCON 




0153 


11675 


012176 




DEF LIDN 




0154 


11676 


012441 




DEF LINV 




0155 


11677 


012266 




DEF TRAN 




0156 


11700 


012137 




DEF 8MULT 




0157* 












0158 


11701 


060334 


EMA10 


LDA .10 


SET SMULT 


0159 


11702 


071656 




STA EDELM 


OPERATOR 


0160 


11703 


114232 




JSB FETCAfl 


EVALUATE 


0161 


11704 


070171 




STA MLBXl 


AND SAVE 


0162 


11706 


074172 




STB MLBX14-1 


SCALAR 


0163 


U706 


034157 




ISZ TEMPS 


GO TO 


0164 


11707 


034157 




ISI TEMPS 


PROCESS 


0165 


11710 


027622 




JMP EMAT0 


SOURCE ARRAY 


0166* 












0167 


11711 


001727 


EMAU 


ALFfALF 


EXTRACT 


0168 


11712 


001700 




ALF 




0169 


11713 


010344 




AND .31 


TYPE 
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0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179* 

0ie0 

0181 

0182 

0183 

0184 



11714 
11715 
11716 
11717 
11720 
11721 
11722 
11723 
11724 

11725 
11726 
11727 
11730 
11731 



040440 
071656 
040440 
002020 
027725 
160157 
034157 
034157 
027626 

064157 
054143 
027662 
017732 
027662 



EMA12 



ADA 


M8 


RECORD EMAT 


STA 


EDELH 


OPERATOR TYPE 


ADA 


M8 


INV OR 


SSA 




TRN7 


JMP 


EMA12 


NO 


LDA 


TEMPSrI 


YES, LOAD 


ISZ 


TEMPS 


SOURCE 


ISZ 


TEMPS 


ARRAY 


JMP 


EMAT6 


SYMBOL 


LDB 


TEMPS 


REDIMENSIONING 


CPB 


PRADO 


PART? 


JMP 


EMAT9 


NO 


J8B 


REDIM 


YES 


JMP 


EMAT9 





0186* 

0187* 

0188* 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 

0211 

0212 

0213 

0214 

0215 

0216 

0217 



SUBROUTINE TO REDIMEN8I0N ARRAY 



11732 

11733 

11734 

11736 

11736 

11737 

11740 

11741 

11742 

11743 

U744 

11746 

11746 

11747 

11750 

11751 

11752 

11753 

11754 

11755 

11756 

117S7 

11760 

11761 

11762 

11763 

11764 

11765 

11766 



000000 
017767 
005727 

074200 

006404 
034157 
160157 
010420 
050407 
027746 
017767 
034157 
034157 
044200 
074200 
060175 
040325 
174000 

040431 
160000 
015336 
070172 
060200 
015336 
003004 
040172 
002020 
014477 
127732 



REEIM 



RECIl 



E7 



NOP 




JSb MCKS 


EVALUATE 


BLPfBLF 


AND SAVE 


STB B3«l 


ROW COUNT 


CLBrlNB 


LOAD DEFAULT COLUMN COUNT 


182 TEMPS 


SINGLE 


LDA TEMPS, I 


DIMENSION 


AND OPMSK 


ARRAY? 


CPA LF 




JMP REOU 


YES 


JSB MCKS 


NO, EVALUATE COLUMN COUNT 


ISZ TEMPS 


MOVE PAST 


ISZ TEMPS 


RIGHT BRACKET 


ADB BZ*l 


PACK 


STB B34>1 


DIMENSIONS 


LDA B2 


STORE IN 


ADA .2 


SYMBOL 


STB 0,1 


TABLE 


ADA Ml 


COMPUTE 


LDA 0,1 


PHYSICAL 


JSB MOIM 


ARRAY SPACE 


STA NLBXl*! 


SIZE 


LDA B34>1 


COMPUTE 


JSB HDIM 


NEW SIZE 


CMA,INA 


NEW 


ADA MLBX141 


SIZE 


SSA 


ACCEPTABLE? 


JSB ERROR 


NO 


JMP REDIM, I 


YES 
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0219* 
0220* 






SUBROUTINE TO EVALUATE I CHECK A SUBSCRIPT 


0221* 
0222 1 


1767 


000000 


rtCKS 


NOP 




0223 1 


1770 


114232 




JSB FETCAfI 


CALL FOR EVALUATION 


0224 1 


1771 


01b353 




JSB SBFIX 


CONVERT TO INTE9ER (ROUNDED) 


0225 1 


1772 


006004 




INB 


UNBIAS SUBSCRIPT 


0226 1 


1773 


060001 




LOA 1 


PUT INTO <A) 


0227 1 


1774 


040460 




ADA H256 


LESS THAN 


0228 1 


1775 


002021 




S8A,RS8 


2567 


0229 1 


1776 


124272 




JMP E6MUrI 


NO 


0230 1 


1777 


127767 




JMP NCK8,I 


YES, RETURN SUBSCRIPT IN (B) 
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0232 12b}id0 ORG 12fi00B 

0233* 

0234********************************************* 
0235****** MATRIX ROUTINES •••♦•♦•♦ 
0236***** **************************************** 
0237*CALL FOR MATRIX OPERATION IS «ADE WITH FOUR* 
0238*PARAr1ETERS, ROUTINE NUHBER AND ADDRESS OF * 
0i39*SYM(»OL TABLE OF THREE MATRICES, FOR SCALAR * 
0240*flULT,LAST iS ADDRESS OF SCALAR VALUE • 
0241*OPERAT1ON IS OF FCrtM BS-Bl OP 82 • 

0242*TMe ADDRESS OF THE BASE ADDRESS OF MATRICES* 
0243*13 6IVbN IN BUd2fB3. THE DIMENSIONS OF A * 
0244*MATRIX IS OlVEN IN B(I)*l» ROWS IN MOST SI8* 
0245*PART(MSP» AND COLtMN IN LEAST SI8 PARTiLSP)* 
0246********** ********************** ************* 
0247* 
0248* 
0249* 

0250********************************************* 
0251*** SUBROUTINE GENERAL *** 

B|^52* *************************** ***************** 
0253*B3«ei OP B2 SUBROUTINE COMPUTES AN ELEMENT* 
0254*0P B3 AND INCREMENTS TO NEXT ELEMENT, THE * 
0255*OP£»<ATION THAT IS PERFORMED AND * 

0256* THE MATRICES INCREMENTED ARE * 

02S7* HUDIFIEU BY ROUTINES AODy SUBr REPL * 
02S8*SCALAR MULTr CONf 2ERUr IDN. ROUTINE CHECKS * 
0259*COMPAT1BILITY OF THREE MATRICES USING SUB • 
0260*COMPAR£ (PARAMETERS SUPPLIED IN REG ArB) * 
0261********************************************* 
0262* 

0263 12(400 000000 GENER NOP SUBROUTINE GENERAL 

0264 12001 060176 LDA B2«l LOAD DIM FOR MATRIX 2 

0265 12002 064174 LDB 61*1 LOAD DIM FOR MATRIX I 

0266 12003 016032 JSB COMPR CHECKS ROM AND COL DIM 
0257* ARE COMPATIBLE 

0268 12004 060174 GEN2 LDA Bl^l LOAD DIM FOR MATRIX 1 

0269 12005 064200 LOB BS't'l LOAD DIM FOR MATRIX 3 

0270 12006 016032 JSB COMPR CHECK ROW AND COL DIM 

0271 12007 015236 JSB MPY COLUMNS IN (A) 

0272 12010 013115 DEF T3 RONS IN T3 

0273 12011 003004 CMA,INA 

U274 12012 073134 STA LPIV -ROWS*COLUMNS 

0275* COMPUTES B3»Bl OP B2 

0276 12013 160173 LOOP LDA 61,1 LOAD 

0277 12014 034173 ISI Bl NEXT 

0278 12015 164173 LDB B1,I SOURCE 

0279 12016 034173 ISZ bl ELEMENT 

0280 12017 000000 MU£1 NOP USUALLY A JSB 
0261 12020 000000 NOP USUALLY DEF B2rl 
0282 12021 17B177 STA B3fl STORE 

W263 12022 034177 ISZ B3 NEXT 

6284 12«23 174177 STB B3,I DESTINATION 

0285 12024 034177 ISZ B3 ELEMENT 

0286 12025 000000 M0E2 NOP ISZ B2 FOR 

0287 12026 000000 NOP HAT ADD OR SUB 
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0268 12027 037134 ISZ LPIV 

0289 12030 026013 JHP LOOP COMPUTE NEXT ELEMENT 

0290 12031 126000 JHP OENERfl 
0291* 

0292* 

0293*********** •♦*•♦••**•••*•**•••••••••*•••••••• 

0294**** SUBROUTINE COMPARE *••* 

029S* ********* *•***•***•*********•*•***♦•*••**•** 
0296*ROUTINE CUHPARES tIM OF TNO MATRICES OIVEN * 
0297*THEIK DIM IN REGISTERS ArB * 

0298*OiriEN81ONS ARE OIVEN IN B{U*2 • 

0299******************«************************** 
0300* 

0301 12032 000000 CQHPR NOP 

0302 12033 050001 CPA 1 EOUALT 

0303 12034 002001 RS8 YES 

0304 12035 014477 LERR JSB ERROR NO 

0305 12036 001727 ALFrALF SAVE 

0306 12037 010376 AND MSK0 « OF 

0307 12040 073115 STA T3 ROMS 

0308 12041 060001 LDA 1 

0309 12042 010376 AND MSK0 SAVE # 

0310 12043 073116 STA T4 OF COLUMNS 

0311 12044 126032 JMP COMPR^I 
0312* 

0313* 

0314********************************************* 
0315****** SUBROUTINE LCHK ****** 

0jl6*** *********************«•***•*****••••••*••• 

0317*TE8T8 THAI NO ELEMENT IN A MATRIX IS * 
0316*UNASSIONED. ENTRYl CHECKS MATRICES OIVEN BY* 
0319*81 AND B2 AND ENTRY 2 CHECKS ONLY Bi • 
0320* **************** **************************** 
0321* 

0322 12045 000000 L0HK2 NOP 

0323 12046 062045 LDA LCHK2 

0324 12047 072051 STA LCHKl 

0325 12050 026065 JMP •♦S 

0326 12051 flatiflB LCHKl NOP 

0327 12052 064175 LBB B2 BASE ADDR 

0326 12053 060176 LDA B2«i ROM AND COL DIM, 

0329 12054 016061 JSB LCHK4 TEST EACH TERM OF B2 

0330 12055 064173 LDB Bl BASE ADDR 

0331 12056 060174 LDA BUI ROM AND COL DIM. 

0332 12057 016061 JSB LCHK4 TEST EACH TERM OF 81 

0333 12060 126051 JMP LCHK1»I 
0334* 

0335 12061 000000 LCI-K4 NOP SUBROUTINE TO TEST TERMS 

0336 12062 077120 STB T6 SAVE 

0337 12063 015336 JSB HDIM COMPUTE SIZE OF MATRIX 
0336 12064 001100 ARS SET NEGATIVE 

0339 12065 003004 CHAflNA 

0340 12066 073121 STA T7 COUNTER FOR ELEMENTS 

0341 12067 163120 LCHK6 LDA T6rl LOAD 

0342 12070 037120 ISZ T6 

0343 12071 167120 LDB T6,I ELEMENT 
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0344 12072 037120 



ISZ T6 



0345 12073 050470 CPA MNES 

0346 12074 0264576 JMP **2 

0347 12075 026100 JMP LCHK5 
0346 12076 054471 CPB MNEO+l 

0349 12'?77 014477 JS8 ERROR 

0350 12100 037121 UChKS ISZ T7 
0361 121«1 026067 JMP UCHK6 
0392 12102 126061 JMP LCHK4fI 
0353* 

03&4« 

0355********************************************* 
0356**** SUBROUTINE HATRIX ADD **** 

03o7********************************************* 
0358*B1,B2,83 CONTAIN ADDRESS OF BASE ADDRESS OF* 
0359*THREE MATRICES. RCUTINE EXECUTES 83-B1+82 * 
03biiJ*BY MODIFYING INSTft IN ROUTIME GENERAL * 
0361********************************************* 
0362< 



COMPARE WITH PRESET OTY, 



ERROR iMAT UNASSIGNED* 

DONE? 

NO 

YES 



0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

0373 

0374* 

0375* 

0376* 

0377* 

0378* 

0379* 

0380* 

0381* 

0382* 

ic)383* 

0364 

0335 

03d6 

0387 

0383 



12103 
12104 
12105 
12106 
12107 
12110 
12111 
12112 
12U3 
12114 
12115 



000008 
063135 
072017 
063136 
072020 
063141 
072025 
072026 
016051 
0160k)0 
126103 



ADC 
ADCl 



NOP 
(.DA 
STA 
LOA 
STA 
LDA 
STA 
STA 
JSB 
JS6 
JMP 



LPLUS 

MODI 

LPLU8*1 

M0D14-1 

INC82 

M0D2 

M0D2+1 

LCHKl 

6ENEK 

ADD, I 



JSB .FAD 

SET IN 8ENER 

DEF OF 82rl 

MODIFY ROUTINE GENERAL 

ISZ 82 



TEST 81,82 FOR UNASSIGNED TERMS 
ROUTINE GENERAL 
EXIT TO MAIN PROGRAM 



******************************************** 
*** SUBROUTINE f'ATRIX SUBTRACT *♦•* 
******************************************** 
81,82,83 CONTAIN ADDRESS OF BASE ADDRESS OF* 
THREE MATRICES. PCUTINE EXECUTES 83-81-82 * 
BY MODIFYING INSTK IN ROUTINE GENERAL * 
******************************************** 



12116 
12117 

1212(9 
12121 
12122 



000000 
062116 
W72103 
063137 

Ib2bl05 



sue 



NOP 

LDA SUB 

STA ADD 

LDA LMIN 

JMP ADDl 



LET 

ADD DO 
RETURN 
JSB ,FS8 
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0390* 

0392* 

U393* 

0394* 

0395* 

0396* 

0397 

U396 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0406 

0409* 

0410* 

0411* 

0412* 

0413* 

0414* 

0415* 

0416* 

0417* 

0416* 

0419 

0420 

0421 

0422 

0423 

0424 

0425* 

0426* 

0427* 

0428* 

0429* 

0430* 

0431* 

0432* 

0433* 

0434 

0435 

0436 

0437 

0438 

0439 

0440 

0441 

0442 

0443 

0444 

0445 



**** 



*** SUSROUTINE MATRIX REPLACE 

******************************************** 

BlrSI eiVE ADDRESS OF BASE ADDRESS OF OIVEN* 
MATRIX AND RECEIVINB MATRIX RESPECTIVELY * 



12123 
12124 
12125 
12126 
12127 
12130 
12131 
12132 
12133 
12134 
12136 
12136 



000000 
062123 
072000 
002400 
006400 
072017 
076020 
002400 
072025 
072026 
016045 
026004 



REPLC 



REPLl 



NOP 


LET 


LDA RCPLC 


SENER DO 


STA GENER 


RETURN 


CLA 


NO 


CLB 


OPERATION 


STA HOOl 


SET 


STB MODUl 


OPERATION 


CLA 


B2 


STA M002 


NOT 


STA M0D24.1 


USED 


JSi LCHK2 


TEST Bl FOR UNASSIBNED ELEMENTS 


JMP QEN2 





*** 



SUBROUTINE MATRIX SCALAR MULT 



• *•* 



B1»B3 8IVE 
MATRIX AND 
MBXL HQLO& 



ADDRESS OF BASE ADDRESS OF OIVEN* 
RECEIVING MATRIX RESPECTIVELY * 
ADDRESS OF SCALAR VALUE * 



******************************************* 



12137 

12140 
12141 
12142 
12143 
12144 



000000 
062137 
072000 
063140 
064323 
026130 



SMULT 



NOP 
LDA 
STA 
LDA 
LDB 
JMP 



SMULT 

6ENEK 

LTIME 

MBXL 

REPLl 



LET 

8ENER DO 
RETURN 
SET FOR 

MULTIPLY 



******************************************** 
*** SUBROUTINE MATRIX CON **•* 

******************************************** 
SETS MATRIX TO ALL ONES. B3 IS ADDRESS OF * 
BASE ADDRESS OF MATRIX, * 



12145 000000 LCON NOP 

12146 060466 LDA HONE 

12147 064325 LDB .2 

12150 070171 LCCNl STA MLBXl 

12151 074172 STB MLBXl*! 

12152 060200 LDA BS^l 

12153 015336 JSB MOIM 

12154 001100 ARS 

12155 003004 CMArlNA 

12156 073134 STA LPIV 

12157 060171 LDA MLBXl 
12160 064172 LOB MLBXl*! 



SET 

CONSTANT 

SET 

ELEMENT 
COUNTER 

LOAD 

CONSTANT 
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0446 

0447 

0448 

0449 

0450 

0451 

0452 

0453* 

0454* 

0455* 

0456* 

0457* 

0456* 

0459* 

0460* 

0461* 

0462* 

0463 

0464 

0465 

0466 

0467 

0468 

0469* 

0470* 

0471* 

0472* 

0473* 

0474* 

0475* 

0476* 

0477* 

0478* 

0479* 

0480 

0481 

0482 

0483 

0484 

0485 

0486 

0487 

0488 

0469 

0490 

0491 

0492 

0493 

0494 

0495 

0496 

0497 

0499 
0&00 
0501 



12161 
12162 
12163 
12164 
12165 
12166 
12167 



170177 
034177 
174177 
034177 
037134 
026161 
126145 



LCCN2 



8TA B3rl 


STORE 


ISZ B3 


IN 


STB B3rl 


NEXT 


ISZ B3 


ELEMENT 


ISZ LPIV 


DONE? 


JMP LC0N2 


NO 


JMP LCON,I 


YES 



#♦****•*•**•**•****•**««**********•**«****** 
**• SUBROUTINE MATRIX ZERO *♦** 

SETS MATRIX TO ZERO. B3 IS ADORESS OP BASE * 
ADDRESS OF MATRIX, 81*82 ARE REDUNDANT • 
SET ai>0 AND USE SUBROUTINE C0NrENTRY2 * 



12170 
12171 
12172 

12173 
12174 

12176 



000000 
062170 
072145 
002400 
006400 
026150 



SZER 



NOP 

LDA SZER 

8TA LCON 

CLA 

CL8 

JMP LCONl 



CONVERT 
LCON 

TO SZER 



**#•***♦♦♦«**••**••**•••********♦«•**•••*•** 
*** SUBROUTINE MATRIX IDN ••*• 

**♦**♦•«*********«*****•*•***♦•**••********* 
ROUTINE SETS UP IDENTITY MATRIX ♦ 

B3 IS ADDHESS OF BASE ADDRESS OF MATRIX * 
USE SZER TO SET MATRIX TO ALL ZEROS, ON * 
RETURN CHECK FOR SQUARE MATRIX, * 



12176 

12177 
12200 
12201 
12202 
12203 
12204 
12205 
12206 
12207 
12210 
12211 
12212 
12213 
12214 
12215 
12216 
12217 
12220 
12221 
12222 
12223 



00000(? 

060177 
073123 
016170 
060200 
001727 
050200 
001010 
026035 
010401 
070171 
001100 
003004 
070172 
067123 
074177 
060466 
170001 
0060b4 
060325 
170001 
006004 



LIEN 



LICNl 



NOP 




LDA B3 




8TA T9 


SAVE BASE ADDRESS 


JSB SZER 


SET ALL MATRIX TO ZERO 


LDA 63-*-l 


IS 


ALFrALF 


ARRAY 


CPA 83*1 


SQUARE? 


ALSrSLA 


YES 


JMP LERR 


NO 


AND MSKl 


SAVE ROM 


STA MLBXl 


LENGTH 


ARS 


SAVE 


CMAr INA 


ROW 


STA MLBX1>1 


COUNTER 


LDB T9 


RESTORE 


STB B3 


B3 


LDA HONE 


STORE 


STA WI 




INB 


1,0 ON 


LDA .2 




STA UI 


DIAGONAL 


INB 
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0512 


12224 


044171 




AOB 


MLBXl 


MOVE TO NEXT DIAGONAL ELEMENT 


0503 


12225 


034172 




ISZ 


MLBXl*l 


DONE? 


0504 


12226 


026216 




JMP 


LIDNl 


NO 


0509 


12227 


126176 




JMP 


LIDN,I 


YES 


0506* 














0907* 














esva******************* *****•« 


f#####A**#######^### 


e5B9***** 


SUBROUTINES 


DLD 


AND DST 




0510*' 




0511* 














0512* 














0513* 














0514 


12230 


000000 


.DLU 


NOP 






0515 


1223} 


01625() 




JS8 


6ETAD 


GET ADDRESS 


0516 


12232 


112230 




DEF 


.OLD, I 




0517 


12233 


036230 




ISZ 


.OLD 


BUMP RETURN ADDRESS 


0518 


12234 


162264 




LDA 


AORESrI 


LOAD HIGH PART. 


0519 


12235 


M36264 




ISZ 


ADRES 




0520 


12236 


166264 




LDB 


ADRESpI 


LOAD LOW PART. 


0521 


12237 


126230 




JMP 


.OLD#I 




0522* 














0523 


12240 


000000 


.DST 


NOP 






0524 


12241 


016250 




JSB 


3ETAD 


GET ADDRESS. 


0525 


12242 


112240 




DEF 


.DST, I 




0526 


12243 


03624P 




ISZ 


.DST 


BUMP RETURN ADDRESS. 


0527 


12244 


172264 




8TA 


ADRES, I 


STORE HIGH PART. 


0528 


12245 


^36264 




ISZ 


ADRES 




0529 


1224f 


176264 




STB 


ADRES, I 


STORE LOW PART. 


0530 


122^7 


126240 




JMP 


.DST, I 




0531* 














0532 


12250 


000(100 


6ETAD 


NOP 




COMPUTES EFFECTIVE ADDRESS. 


0533 


12251 


072265 




STA 


TINY 


SAVE A REGISTER. 


0534 


12252 


162250 




LDA 


6ETA0,I 


GET POINTER TO ADDRESS. 


0535 


12253 


072264 


GET 


STA 


ADRES 


STORE IN ADRES. 


0536 


12254 


062265 




LDA 


TINY 


RESTORE A REGISTER. 


0637 


12235 


162264 




LDA 


ADRES, I 




0538 


12266 


001275 




RAL, 


rCLE,SLAi 


ERA TEST FOR INDIRECT 


0539 


12257 


026253 




JMP 


GET 


IT IS INDIRECT. 


0540 


12260 


072264 




STA 


A0RE8 


EFFECTIVE ADDRESS, 


0541 


12261 


062265 




LDA 


TINY 




0542 


12262 


036250 




ISZ 


GETAD 


RETURN 


0543 


12263 


126250 




JMP 


QETAD,I 




0544 


12264 


000(900 


ADHES 


6SS 


1 




0545 


12265 


000000 


TINY 


BSS 


1 
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0547* 

0&48*****************«*************************** 
0549**** SUBROUTINE TRANSPOSE ***** 

0550* ************************ ******************** 
055i*TRAN3POSE OF FORM B3 < M,N )»T ( Bl (N,H )) * 
0352*BlfB3 6IVE ADDRESS OF BASE ADDRESS OF GIVEN* 
0653*AND RECEIVING MATRICES RESPEC ( I VELY. * 
0554********************************************* 
0555* 



0556 


12266 


000M00 


IRAN NOP 






0557 


12267 


016»45 


JSB 


LCHK2 


TEST Bl FOR UNA88I8NE0 TER 


0558* 










CHECK DIMENSIONS 


0559 


12270 


060200 


LDA 


B3 + 1 


PARAMETERS OF B3 


056V) 


12271 


0fll727 


ALf , 


rALF 


INTERCHANGE ROW AND COLUMN 


0561 


12272 


064174 


LDB 


B1<»>1 


PARAMETERS OF Bl 


0562 


12273 


016«32 


JSB 


COMPR 


SUBROUTINE COMPARE 


0563* 










DIMENSIONS COMPATIBLE 


0564 


12274 


015236 


JSB 


MPY 


# OF COLUMNS IN (A) 


0565 


12275 


013115 


DEF 


T3 


# OF ROMS IN T3 


0566 


12276 


073134 


8TA 


LPIV 


PRODUCT OF ROW*COL 


0567 


12277 


063116 


LDA 


T4 


SET 


0568 


12300 


003004 


CMA, 


flHk 


COLUMN 


0569 


123k)l 


073117 


STA 


T5 


COUNTER 


0570* 










T6 IS INDICATOR TO SELECT 


0571* 










WHICH ELEMENT IN A COL OF 


43572* 










Bl IS TO BE TRANSPOSED 


0573 


123ii)2 


002400 


TRANl CLA 






0574 


123)^3 


073120 


STA 


T6 


SET T6«0 


0575 


12304 


067120 


LNfcXT UDB 


T6 


LOAD 


0576 


12305 


005iiyi<i0 


BLS 






eb77 


12306 


044173 


ADB 


Bl 


NEXT ELEMENT 


0578 


123^'7 


16(00^1 


LDA 


Irl 




0579 


12310 


006004 


IN8 




OF COLUMN 


058fo 


12311 


164tiidl 


LDB 


Ifl 




U581 


1231? 


170177 


STA 


B3,I 


STORE 


0582 


12313 


034177 


ISZ 


B3 


IN 


0583 


12314 


174177 


STB 


B3.I 


ROW 


0584 


12315 


b34l77 


ISZ 


63 




0585 


12316 


063120 


LOA 


T6 


SET T6-T6+T4 


0586 


12317 


043116 


ADA 


T4 


T6 POINTS TO NEXT TERM IN 


id587 


12320 


073120 


STA 


T6 


A COLUMN TO BE TRANSPOSED 


0588 


12321 


053134 


CPA 


LPIV 


TEST FOR LAST IN COL 


0589 


12322 


026324 


JMP 


**2 




0."i9fl 


12323 


026304 


JMP 


LNEXT 




0691* 










SET BASE ADDRESS TO FIRST 


0592* 










TERM IN NEXT COLUMN 


0693 


12324 


034173 


ISZ 


Bl 




0594 


12325 


034173 


ISZ 


Bl 




0595 


12326 


037117 


ISZ 


T5 




0596 


12327 


026302 


JMP 


TRANl 


TRANSPOSE NEXT COL 


0597 


12330 


126266 


JMP 


TRAN,I 


EXIT TO MAIN PROGRAM 
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0002* 

0003** 

0004** 

0005** 

0006*R 

0007*B 

0008*T 

0009** 

0010* 

0011 

0012 

0013* 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022* 

0023* 

0024* 

0025 

0026 

0027 

0026 

0029 

0030 

0031 

0032 

0033 

0034* 

0035* 

0036* 

0037 

0036 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049* 

0050* 

0051 

0052* 

0053* 

0054 

0055 

0056 

0057 



************* 
** SUdROUT 



****************************** 
INE MATRIX MUUT *••• 



OUTINE IS OF 
l,B2,b3 ARE A 
HREE MATRICES 



FORf 83<H»P)«Bl(MrN)*B2<N,P) * 
DORESSES OF BASE ADDRESSES OF* 



12331 
12332 

12333 
12334 
12335 
12336 
12337 
12340 
12341 
12342 



12343 
12344 
12345 
12346 
12347 
12350 
12351 
12352 
12353 



12354 
12355 
12356 
123B7 
12360 
12361 
12362 
12363 
12364 
12365 
12366 
12367 



000000 
016051 

060200 
010376 
073120 
060176 
010376 
053120 
002001 
026035 



060200 
010460 
070001 
060176 
001727 
010376 
040001 
064174 
016032 



060175 
073117 
063115 
003004 
073123 
063120 
003004 
073124 
063117 
070175 
002400 
073125 



12370 073126 



12371 006400 

12372 016240 

12373 100177 

12374 064173 



MULT NOR 

J8B LCHKl 

LDA B34-1 

AND MSK0 

STA T6 

LDA 624>1 

AND MSK0 

CPA T6 
RSS 

JMP LERR 



LDA B341 
AND M296 
STA 1 
LDA B24-1 
ALFrALF 
AND MSK0 
ADA 1 
LOB B14-1 
JSB COMPR 



LDA B2 
STA T5 
LDA T3 
CMA^I-U 
STA T9 

MULT4 LDA T6 
CMAr INA 
STA T10 
LDA T5 
STA B2 

MULT3 CLA 

STA Til 



STA T12 



CLB 

JSB .DST 

DEF 63fl 

MULT2 LOB 61 



TEST ai,B2 FOR UNA8S|8NE0 TERMS 
CHECK DIMENSIONS 
PARAMETERS OF B3 
SAVE COLUMN COUNT 

PARAMETERS OF B2 

COLUMNS EQUAL 

IN NUMBER? 
NO 

COMBINE B3rB2 PARAMETERS 
INTO (MrN) AND COMPARE 
WITH THOSE OF Bl 
PARAMETERS OF 63 

STORE ROM IN MSP OF B 
PARAMETERS OF 62 
QET ROW COUNT 

IN (A) 
COMBINE A AND B 
PARAMETERS OF Bl 
COMPARE ROW AND COL 
DIMENSIONS ARE COMPATIBLE 
M,N ARE STORED IN T3rT4 
SAVE B2 AS DESTROYED IN 
MULT 

SET 
ROW 

COUNTER 



SET COUNTER 

RESTORE BASE ADDRESS B2 

COUNTER FOR 82. INCR BY 
2*P AND POINTS TO NEXT TERM 
IN COL TO BE MULTIPLIED 
COUNTER FOR Bl. INCR BY 2 
AND POINTS TO NEXT TERM 
IN ROW TO BE MULTIPLIED 

CLEAR TO ZERO 

COMPUTE PROD OF ONE TERM 
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0056 
01059 
0060 
0061 
0062 
0k)b3 
0064 
0065 
0^66 
0ii67 
0068 
0069 
0070 

0071 
0072 
0073 
0074 
0075 
0076* 

0076 

0079 

0^60 

0061 

00B2 

0083* 

0084* 

0085* 

0086 

0087 

0fc)88 

0089 

0090* 

0091* 

0092 

0093 

0094* 

0095 

0096 

0097 

0098 

0099 

0100 

0101 



12375 
12376 
12377 
12400 
12401 
12402 
12403 
12404 
12405 
12406 
12407 

12410 

12411 
12412 
12413 
12414 
12415 
12416 



047126 
077132 
064175 
047125 
016230 
100001 
114240 
113132 
114236 
100177 
016240 
190177 
03/126 
037126 
063120 

001000 

043125 
073125 



12417 063116 

12420 001000 

12421 053126 

12422 026424 

12423 026374 



12424 034177 

12425 034177 

12426 03*175 

12427 0341/5 



12430 037124 

12431 026366 



12432 
12433 
12434 
12435 
12436 
12437 
12440 



063116 
001000 
040173 
070173 
037123 
026361 
126331 



ADB 


T12 


STB 


T18 


LDB 


B2 


ADB 


TU 


JSB 


.DLD 


DEF 


IW 


JSB 


.FMPArl 


DEF 


T18,I 


JSB 


.FADArl 


DEF 


63rl 


JSB 


,DST 


DEF 


B3rl 


ISZ 


T12 


ISZ 


T12 


LDA 


T6 


ALS 




ADA 


Til 


STA 


Til 


LDA 


T4 


ALS 




CPA 


T12 


JHP 


*4>2 


JMP 


MULT2 


ISZ 


B3 


ISZ 


63 


ISZ 


B2 


ISZ 


82 


ISZ 


T10 


JMP 


MULT3 


LDA 


T4 


ALS 




ADA 


Bl 


STA 


Bl 


ISZ 


T9 


JMP 


MULT4 


JMP 


MULT, I 



IN ROW BY ONE TERM IN COL 



COMPUTES RUNNIN6 SUM 

SELECT NEXT TERM IN ROW 
SELECT NEXT TERM IN COL 



TEST IF HAVE MULT ONE ROW 
BY ONE COLUMN 



MULT AND ADD IN NEXT TERM 
SUMMATION OF PRODUCTS FOR 
ONE TERM OF B3 18 DONE 
MULT SAME ROW BY NEXT COL 
INCR RECEIVING MAT 

BASE ADDRESS OF NEXT COL 

TEST IF HAVE MULT ONE ROW 
BY ALL COLUMNS 
SKIP IF INNERPRODUCT DONE 
COMPUTE SAME ROW*NEXT COL 
SELECT NEXT ROW 



ADDRESS OF NEXT ROW 

MULT ROW BY ALL COLUMNS 
EXIT TO MAIN PROGRAM 
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0104* 

0105* 

0106* 

0107* 

0108* 

0109* 

0110* 

0111* 

0112* 

0113* 

0114* 

0115 

0116 

0117 

0118 

0119 

0120* 

0121* 

0122* 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

013B 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

014B 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 



******************** 
*** SUBROUTINE HA 



************************ 
TRIX INVERT **** 



OPEKATION OF FORM H 
Blr83 ARE ADDRESSES 
MATRIX TO BE INVERTE 
RESPECTIVELY. 82 IS 
IS GAUSSIAN ELIMIKAT 
PIVOTING 



AT B3 » INV 81 * 

OF BASE ADDRESS OF * 
AND RECEIVING MATRIX • 
REDUNDANT. METHOD USED • 
ION WITH COLUMN * 

* 



12441 000000 

12442 016045 

12443 060174 

12444 064200 

12445 016032 



LIKV 



12446 
12447 

12450 
12451 
12452 
12493 
12454 
12455 
12456 
12457 
1246PI 
12461 
12462 
12463 
12464 
12465 
12466 
12467 
12470 
12471 
12472 
12473 
12474 
12476 
12476 
12477 
1250PI 
12501 
1250? 
12503 
12504 
I25i35 
12506 
125td7 
12510 
12511 



060177 
073127 
060174 
015336 

003004 
001100 
073114 

001000 

064141 
006(904 
074175 
074177 
007004 
044142 
040001 
002020 
025473 
016123 
063127 
070177 
016176 
063127 
070177 
002400 
073126 
073127 
060175 
070173 
160173 
034173 
164173 
034173 
002020 
015423 
073132 
077133 



LIMl 



NOP 

JS6 LCHK2 

LDA B141 

LDB B341 

JSB COMPR 



LDA B3 
STA T13 
LDA B14-1 
JSB MDIM 
CHArlNA 
ARS 



STA 
ALS 
LOB 
INB 
STB 
STB 



T2 



LSTPT 



B2 

B3 
CMBf INB 
ADB HSTPT 
ADA 1 
SSA 
JMP 
JSB 
LDA 
STA 
JSB 
LDA 
STA 
CLA 
STA 
STA 
LDA 
STA 
LDA 
ISZ 
LDB 
ISZ 
SSA 
JSB 
STA 
STB 



El 

REPLC 

T13 

B3 

LIDN 

T13 

83 



T12 
T13 

B2 

Bl 

BU 

Bl 

Bl, 

Bl 



I 



I 



ARINV 

T18 

T19 



SUBROUTINE MATRIX INVERT 
TEST Bl FOR UNAS8I6NE0 TERMS 
DIMENSIONS OF HATRIX Bl 
DIMENSIONS OF HATRIX B3 
CHECK DIMENSIONS 
ROW AND COL VALUES T3#T4 
MAKE COPY OF MATRIX Bl 

IM FREE CORE 
SAVE 

83 
COMPUTE SIZE 

OF MATRIX 

SAVE 

ELEMENT 
COUNTER 
SAVE 

ADDRESS OF 
FREE CORE 

COMPUTE SIZE OF 

FREE CORE AREA 
ENOUGH 

CORE LEFT? 
NO 

YES, COPY SOURCE MATRIX 
RESTORE 

83 
SET DESTINATION TO IDENTITY 
RESTORE ITS 

BASE ADDRESS 
INITIALIZE 

MAXIMUM 
ELEMENT 
COPY 82 INTO Bl AS 
62 NEEDED LATER 
LOAD 

NEXT 

ELEHENT 

GET ABSOLUTE VALUE 

IF NUMBER IS NEGATIVE 
SAVE NUMBER 
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0159 


12512 


114237 


JSB 


.FSBAfl 


SUBTRACT EXISTING MAX. 


0160 


12513 


013126 


DEF 


T12 


VALUE 


0161 


12514 


002020 


SSA 




SKIP AND SWAP IF POSITIVE 


0162 


12516 


026322 


JHP 


LINlid 




0163 


12516 


063132 


LOA 


T18 


SWAP 


0164 


12517 


067133 


LDB 


T19 




0165 


U520 


073126 


8TA 


T12 




0166 


12521 


077127 


STB 


T13 




0167 


12522 


037114 


LIM0 ISZ 


T2 


ALL ELEMENTS EXHAUSTED? 


0166 


12523 


026502 


JMP 


LINll 


NO 


0169 


12524 


063126 


LDA 


T12 


COMPUTE RELATIVE TOLERANCE 


0170 


12525 


067127 


LDB 


T13 


TOL-ABSOLUTE TOL • MAX VALUE 


0171 


12526 


114240 


JSB 


.FMPArl 




0172 


12527 


013130 


DEF 


T16 


ABSOLUTE TOLERANCE 


0173 


1253P 


07i«17l 


STA 


ML8X1 


RELATIVE 


0174 


12531 


074172 


STB 


MLBX14>1 


TOLERANCE 


0175 


12532 


002400 


CLA 




INITIALIZE PIVOT 


0176 


12S33 


073134 


STA 


LPIV 




0177 


12534 


037116 


ISZ 


T4 


REQUIRE CONSTANT (R0W4>n 


0178 


12S35 


037134 


LIKVl ISZ 


LPIV 


SELECT NEXT PIVOT 


0179 


12536 


063134 


IDA 


LPIV 


TEST IF HAVE PROCESSED 


018k1 


12537 


053116 


CPA 


T4 


LAST PIVOT 


0181 


12540 


126441 


JMP 


LINV,I 


NORMAL EXIT TO MAIN PROG 


B182* 










SCAN PIVOTAL COLUMN FOR 


0163* 










LARGEST ELEMENT 


0184 


12541 


063134 


LDA 


LPIV 


COMPUTE ADDRESS OF PIVOT 


0185 


12542 


067134 


LDB 


LPIV 


COLUMN USING ROUTINE LWHR 


0186 


12543 


073114 


STA 


T2 


ROW COUNTER 


0187 


12544 


017067 


JSB 


LMHR 


ON RETURN, ADDRESS IN A 


0188 


12545 


073113 


STA 


Tl 




0189 


12546 


002400 


CLA 






0190 


12547 


073126 


STA 


T12 


T12rT13 IS STORE 


0191 


12550 


073127 


STA 


T13 


FOR GREATEST VALUE 


0192 


12551 


016230 


LUV2 JSB 


.OLD 


LOAD FP NUMBER 


0193 


12552 


113113 


DEF 


T1,I 




0194 


12553 


002020 


SSA 




OBTAIN ABSOLUTE VALUE 


0195 


12554 


015423 


JSB 


ARINV 


IF NUMBER IS NEGATIVE 


0196 


12555 


073132 


STA 


T18 


STORE VALUE OF FP NUMBER 


0197 


12556 


077133 


STB 


T19 




0198 


12557 


114237 


JSB 


.FSBArl 


SUBTR EXISTING LARGEST VALUE 


0199 


12560 


013126 


DEF 


T12 




0200 


12561 


002(()20 


SSA 




SKIP AND SWAP IF POSITIVE 


0201 


12562 


026571 


JMP 


LINV7 


T2 STILL CONTAINS MAX VALUE 


0202 


12663 


063132 


LDA 


T18 


STORE NEW MAX VALUE 


02l^>3 


12564 


06/133 


LDB 


T19 




021^4 


12b65 


073126 


STA 


T12 




0205 


12566 


077127 


STB 


T13 




0206 


12567 


063114 


LOA 


T2 


SET T5 TO POSITION IN 


0207 


12570 


073117 


STA 


Tg 


COLUMN OF MAX VALUE 


0206 


12571 


037114 


LINV7 ISZ 


T2 




0209 


12572 


063114 


LDA 


T2 


TEST FOR LAST TERM IN COL 


0210 


12573 


053116 


CPA 


T4 




0211 


12574 


026602 


JMP 


LINVa 


SWAP ROWS 


0212 


12575 


063115 


LDA 


T3 


COMPUTE 


0213 


1257ft 


001000 


ALS 




NEXT ADDRESS 


0214 


12577 


043113 


ADA 


Tl 


IN PIVOT 
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0219 

0216 

0217* 

0218 

0219 

0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0246 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 



12800 
12601 

12602 
12603 
12604 
12605 
12606 
12607 
12610 
12611 
12612 
12613 
12614 
12615 
12616 
12617 
12620 
12621 
12622 
12623 
12624 
12625 
12626 
12627 
12630 
12631 
12632 
12633 
12634 
12635 
12636 
12637 
12640 
12641 
12642 
12643 
12644 
12645 
12646 
12647 
12650 
12651 
12692 
12653 
12654 
12695 
12656 
126S7 
12660 
12661 
12662 
12663 
12664 
12665 
12666 



073113 
026551 

063134 
006404 
017067 
073113 
063117 
006404 
017067 
073114 
063134 
006404 
017101 
073123 
073124 
063117 
006404 
017101 
073125 
063115 
003004 
073126 
016230 
113113 
073132 
077133 
016230 
113114 
173113 
037113 
177113 
037113 
063132 
067133 
173114 
037114 
177114 
037114 
016230 
113123 
073132 
077133 
016230 
113125 
173123 
037123 
177123 
037123 
063132 
067133 
173125 
037125 
177125 
037125 
037126 



LIKV8 



LIKV3 



STA 
JMP 

LOA 

CLB, 

J8B 

STA 

LDA 

CLBr 

J8B 

STA 

LDA 

CLB, 

J8B 

STA 

STA 

LDA 

CLB, 

JSB 

STA 

LDA 

CMA, 

STA 

JSB 

DEF 

STA 

STB 

JSB 

DEF 

STA 

ISI 

STB 

I8Z 

LDA 

LOB 

STA 

ISZ 

STB 

ISZ 

JSB 

DEF 

STA 

STB 

JSB 

DEF 

STA 

ISZ 

STB 

ISZ 

LDA 

LDB 

STA 

ISZ 

STB 

ISZ 

ISZ 



Tl 

LINV2 

LPIV 

INB 

LMHR 

Tl 

T5 

INB 

LMHR 

T2 

LPIV 

INB 

LWHR2 

T9 

T10 

T5 

INB 

LMHR2 

TU 

T3 

INA 

T12 

.DLD 

Tlrl 

T18 

T19 

.DLD 

T2,I 

Tlrl 

Tl 

T1,I 

Tl 

T18 

T19 

T2,I 

T2 

T2,I 

T2 

• DLD 
T9,I 
T18 
T19 

• OLD 
TUrl 
T9,I 
T9 

T9,I 
T9 
T18 
T19 
TUrl 
TU 
Tllrl 
TU 
T12 



COLUHN 
SELECT NEXT TERM 
SMAP RONS LPIV AND T5 
COMPUTE ADDRESS 
OF PIVOTAL ROW 

ADDRESS OF PIVOTAL RON 



AOOR OF ROW TO BE SWAPPED 

COMPUTE ADDRESS OF 
PIVOTAL ROW IN I-MATRIX 

KEEP COPY 

COMPUTE ADDR OF RON TO 
BE SNAPPED IN I-MATRTX 



COUNTER FOR TERMS IN A ROW 
SWAP ONE ELEMENT OF ROW 



SWAP ONE ELEMENT IN A ROW 
OF I-MATRIX 



SKIP IF DONE 
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0271 12^67 £)2b626 



JMP LINV3 



0272* 






0273* 






0274* 






0275* 






0276 


12fe70 


063134 


0277 


12671 


067134 


0278 


12672 


017067 


0279 


12673 


073113 


0280 


12674 


016230 


0281 


12675 


113113 


0282 


12676 


002020 


0283 


12677 


015423 


0284 


12700 


114237 


0285 


12741 


000171 


0286 


12702 


002020 


0287 


12703 


014477 


0288* 






0269* 






0290 


12704 


063113 


0291 


12705 


073114 


0292 


12706 


06(9466 


0293 


12707 


064.525 


0294 


12710 


114241 


0295 


12711 


113113 


0296 


12712 


073132 


0297 


12713 


077133 


0298* 






0299* 






0300 


12714 


063134 


0301 


12716 


073125 


0302 


12716 


037125 


0303 


12717 


063125 


03i}4 


12720 


053U6 


0305 


12721 


026733 


fdiijb 


12722 


037114 


0iid7 


12723 


037114 


03«6 


12724 


016230 


0309 


12725 


113114 


0310 


12726 


114240 


0311 


12727 


013132 


0312 


12730 


016240 


0313 


12731 


113114 


0314 


12732 


026716 


0315* 






0316* 






0317 


12733 


063124 


8318 


12734 


073117 


0319 


12735 


063115 


0320 


12736 


003004 


0321 


12737 


073125 


0322 


12740 


016230 


0323 


12741 


113117 


0324 


12742 


002003 


0325 


12743 


006002 


0326 


12744 


026746 



LDIMI 



LI^V6 



LIM2 



LIM3 



LDA 
LDB 
JSB 
STA 
JSB 
DEF 
SSA 
JSB 
JSB 
DEF 
SSA 
JSB 



LDA 
STA 
LDA 
LDB 
JSB 
DEF 
STA 
STB 



LDA 
STA 
ISZ 

LDA 
CPA 
JMP 
ISZ 
ISZ 
JSB 
DEF 
JSB 
DEF 
JSB 
DEF 
JMP 



LDA 
STA 
LDA 



LPIV 

LPIV 

LWHR 

Tl 

.OLD 

T1,I 

ARINV 

.FSBA,I 

MLBXl 

ERROR 



Tl 

T2 

HONE 

.2 

.FDVArl 

Tlrl 

T18 

T19 



LPIV 

Til 

Til 

Til 

T4 

LIN12 

T2 

T2 

.OLD 

T2rl 

.FMPAfl 

T18 

.DST 

T2rl 

LINV6 



T10 

T5 

T3 



CMAf INA 
STA Til 
JSB .DLD 
DEF T5rl 
SZArRSS 
SZB 
JMP *+2 



SET 



SWAP NEXT ELEMENT 
HAVE LAR8EST ELEMENT IN 
PIVOTAL POSITION, FIND 
VALUE AND TEST TO ZERO 
FOR SINGULAR MATRIX 
COMPUTE 

ADDRESS OF 
PIVOT 
ELEMENT 

PIVOT VALUE 

OBTAIN ABSOLUTE VALUE 

IF NUMBER IS NE6ATIVE 
SUBTRACT TOLERANCE AND 

COMPARE TO ZERO 
PRINT'NEARLY SINQ MATRIX' 
DIVIDE PIVOT ROM AND ROW 
IN I-MAT BV PIVOT VALUE 
ADDRESS OF PIOT ELEMENT 

LOAD 
1.0 



INVERSE OF PIVOT 

MULT ROW BY l/PIVOT 
STARTING AT PlVOT*l 

COUNTER FOR ROW 
INCREMENT COUNTER 

TEST FOR END OF ROW 

ADDRESS OF NEXT ELEMENT 



MULT ROW IN I-MATRIX BY 
1/PIVOT. SKIP IF ELEMENT' 
ADDRESS OF PIVOT ROW 
IN I. MATRIX 



ROW COUNTER 

SKIP MULTIPLICATION IF ZERO 
NOT ZERO 
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0327 

032S 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336* 

0337* 

033A* 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351* 

0352* 

0353* 

0354* 

0355 

0356 

0357 

0356 

0359 

0360 

0361 

0362 

0363* 

0364* 

0365* 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

0360 

0381 

0382 



12745 
12746 
12747 
12750 
12751 
12752 
12733 
12754 
12755 



12756 
12757 
12760 
12761 
12762 
12763 
12764 
12765 
12766 
12767 
12770 
12771 



12772 
12773 
12774 
12776 
12776 
12777 
13000 
130idl 



13002 
13003 
131S04 
13005 
13006 
13007 
13010 
13011 
13012 
13013 
13014 
13015 
13016 
13017 
13020 
13021 
13022 



026752 
114240 
013132 
016240 
113117 
037117 
037117 
037125 
026740 



002400 
070173 
034173 
060173 
053116 
026535 
053134 
026760 
060173 
006404 
017101 
073125 



060173 
067134 
017067 
073123 
016230 
100000 
073121 
077122 



063134 
073127 
063113 
073114 
037127 
063127 
053116 
027033 
037123 
037123 
037114 
037114 
063121 
067122 
114240 
113114 
073132 



LIM4 



UIKV4 



LINV5 



JMP 
JSB 
DEF 
JSB 
DEF 
ISZ 
ISZ 
ISZ 
JMP 



LINl 

.FMP 

T18 

.D8T 

T5rl 

T6 

T5 

TU 

LINl 



4 
Arl 



ZERO 



NEXT ELEMENT IN I«MATRIX 

DONE? 
3 NO 

PERFORM ROM MANIPULATIONS 
AND SUBTRACTIONS TO REDUCE 
PIVOT COLUMN TO ZERO 



CLA 
STA 
ISZ 

LDA 
CPA 
JMP 
CPA 
JMP 
LDA 
CLB 
JSB 
STA 



61 
Bl 
Bl 
T4 

LINVl 
LPIV 
LINV4 
Bl 
r INB 
LWHR2 
TU 



LDA 
LDB 
JSB 
STA 
JSB 
DEF 
STA 
STB 



LDA 
STA 
LDA 
STA 
ISZ 
LDA 
CPA 
JMP 
ISZ 
ISZ 
ISZ 
ISZ 
LDA 
LDB 
JSB 
DEF 
STA 



Bl 

LPIV 

LNHR 

T9 

.OLD 

0,1 

T7 

T8 



LPIV 

T13 

Tl 

T2 

T13 

T13 

T4 

LIN15 

T9 

T9 

T2 

T2 

T7 

T8 

.FMPArl 

T2,I 

T18 



SELECT NEXT ROW 

TEST FOR LAST ROH 
SELECT NEXT PIVOT 
TEST TO SKIP PIVOTAL ROW 
SKIP PIVOTAL ROW 



ADDRESS OF ROW TO BE TRANSFORMED 

IN I-MATRIX 
COMPUTE MULTIPLIER WHICH 
IS THAT ELEMENT IN ROW TO 
BE TRANSFORMED WHICH LIES 
IN THE PIVOTAL COLUMN 



SAVE ADDRESS 



VALUE OF MULTIPLIER 

DO ELIMINATION OF ROWS IN 
ORIGINAL MATRIX, START AT 
COLUMN LPIV*1 

COUNTER 



TEST FOR LAST TERM IN ROW 

T9 IS ADDRESS OF 

ELEMENT TO BE CHANOED 

T2 IS ADDR OF CORRESPONDING 

ELEMENT IN PIVOTAL ROW 



MULTIPLIER*VALUE IN 
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0383 

0384 

0385 

0386 

0387 

0388 

0389 

0390 

0391* 

0392* 

0393* 

0394* 

0395* 

0396 

0397 

0398 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0408 

0409 

0410 

0411 

0412 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424* 

0425* 

0426** 

04i;7** 

0428** 

0429*S 

0430*1 

0431*A 

0432*E 

0433** 

0434* 

0435 

0436 

0437 

0438 



13023 

13024 
13025 
13026 
13027 
13030 
13031 
13332 



13033 

13034 
13035 
13036 
13037 
13040 
13041 
13042 
13043 
13044 
13045 
13046 
131^47 
13HS0 
13051 
13C52 
13053 
13054 
13055 
13056 
13057 
13060 
13B61 
13062 
13063 
13i}64 
13065 
13066 



077133 
016230 
113123 
114237 
013132 
016240 
113123 
027006 



063124 
073117 

063115 
003004 
073127 
163117 
037117 
167117 
037117 
002003 
006002 
027050 
027062 
114240 
013121 
073132 
077133 
016230 
113125 
114237 
013132 
016240 
113125 
037125 
037125 
037127 
027040 
026760 



LIM5 



LIMB 



LIM7 



STB 


T19 


JSB 


.OLD 


DEF 


T9,I 


JSB 


.FSBArl 


DEF 


T18 


JSB 


.D8T 


DEF 


T9,I 


JMP 


LINVS 



PIVOT ROW 



LDA 
STA 

LDA 
CMA 
STA 
LDA 
ISZ 
LDB 
182 
SZA 
SZB 
JMP 
JMP 
JSB 
DEF 
STA 
STB 
JSB 
DEF 
JSB 
DEF 
JS6 
DEF 
ISZ 
ISZ 
ISZ 
JMP 
JMP 



TIB 

T5 

T3 
,INA 

T13 

T5,I 

T5 

T5,I 

T5 
rRSS 

**2 

LIN17 

•FMPArl 

T7 

T18 

T19 

,DLD 

T11,I 

.FSBArl 

T18 

,DST 

Tll.I 

TU 

Til 

T13 

LIN18 

LINV4 



TRANSFORMED ELEMENT 

SELECT NEXT TERM 

DO ELIMINATION OF ROWS IN 

IDENTITY MATRIX. START AT 

BEGINNING OF ROW AND LEAVE 

ELEMENT UNCHANGED WHEN ZERO 

IN PIVOTAL ROW. 

ADDRESS OF 

PIVOTAL ROW 

SET 

COUNTER 



SKIP IF ZERO 

NOT ZERO 
ZERO 
MULTIPLY BY 

MULTIPLIER 



SELECT NEXT TERM 
ELIMINATE NEXT ROW 



******************************************* 

*** SUBROUTINE LWHR **••* 

******************************************* 

UB«OUTIN£ COMPUTES ADDRESS OF AN ELEMENT ♦ 
N MATRIX GIVEN BY B2. ROW AND COL VALUES * 
HE SUPPLIED IN A,B. ADDRESS IS LEFT IN A * 
NTKY LWHK2 COMPUTES ADDR IN NAT B3 * 

******************************************* 



13067 000000 

131^70 077121 

13071 040431 

13072 015236 



LWhR 



NOP 

STB T7 
ADA Ml 
JSB MPY 



SAVE COLUMN # 
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0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446 

0447 

0448 

0449 

0450 

0451 

0452 

0463 

0454 

0455* 

0456* 

0457* 

0458* 

0459* 

0460* 

0461 

0462 

0463 

0464 

0465 

0466 

0467 

0466 

0469 

0470 

0471 

0472 

0473 

0474 

0475 

0476 

0477 

0478 

0479 

0480 

0461 

0482 

0483 

0464 

** 



13K73 013115 DEF T3 

13if74 043121 ADA T7 

13075 04k)431 ADA Ml 

13076 0010i^0 ALS 

13077 040175 ADA B2 

13100 127067 JMP LWHR,I 

13101 0013000 LWHR2 NOP 

13102 077121 STB 17 

13103 04(0431 ADA hi 

13104 015236 J8B MPY 

13105 013115 DEF T3 

13106 043121 ADA 17 

13107 040431 ADA Ml 
1311? 001000 ALS 

13111 040177 ADA B3 

13112 127101 JMP LWHR2,I 



CONSTANTS 



{A-l>*T3 

♦(B-1) 

DDR»B2*2( ( A-1 )*T3*(B«l > ) 



13113 
13114 
13115 
13116 
13117 
13120 
13121 
13122 
13123 
13124 
13125 
13126 
13127 
13130 
13132 
13133 
13134 
13135 
1313^ 
13137 
13140 
13141 
13142 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000M00 
00id(j00 
000000 
000000 
000000 
000000 
041433 
000000 
000000 
000000 
114236 
100175 
114237 
114240 
034175 



Tl 

T2 

T3 

T4 

T5 

T6 

T7 

T8 

T9 

TU 

TU 

T12 

T13 

Tie 
Tie 

T19 

LPIV 
LPLUS 

LMIN 
LTIME 
INCB2 
FIMS 



BSS 1 

bSS 1 

BSS 1 

BSS 1 

BSS 1 

BSS 1 

BSS 1 

BSS 1 

BSS 1 

BSS 1 

BSS 1 

BSS 1 

BSS 1 

DEC +1E-6 

BSS 1 

BSS 1 

BSS 1 

JSB .FADAfl 

DEF B2rl 

JSB ,FS8A,I 

JSB .FMPArl 

ISZ B2 

EOU * 

END 



TEMPORARY CONSTANTS 



ABSOLUTE TOLERANCE 



GENERATES CODE 

GENERATES CODE 
GENERATES CODE 
GENERATES CODE 



NO ERRORS* 



PREPARE BASIC SYSTEM 
(REV. A) 



BINARY TAPE 
SOURCE TAPES 

SOURCE LISTING 



20392-60002 



20392- 
20392- 
20392- 



80012 
80013 
80014 



20392-90002 



PAQl 0001 



** NO ER«ORS* 



ASKBrArB^U 



PREPARE BASIC SYSTEM— JANUARY i, 1970 



KAGE 00B2 #01 BASIC SYSTEM CONFIGURATER 



&{JfOl 



ASr'BrArSrL PREPARE BASIC SYSTEM— JANUARY I, 1970 

0003 (i)a«ii(^? ORG 2 

0L5* THIS PRUGkAM ».|LL CONFIGURE AND PUNCH AS AN ABSOLUTE TAPE THE 

0006* HP BASIC SYSTEM COMPATIBLE «.ITH 'BOSS'l INCLUSION OF THE 'BOSS' 

0H07* VERSION OF THE BASIC INTERPRETER IS OPTIONAL. TELETYPE, 

01308* PHOTOREADER, ANC PUNCH DRIVERS ARE SUPPLIED BY THIS PROGRAM. 

0^i,9* CUSTOM 'CALL' ROUTINES MAY BE INCLUDED IF THE BASIC INTERPRETER 

mild* IS PRESENT. OPTIONS INCLUDE CHOICE OF BUFFERED OR SERIAL 

0(^iU* TELETYPE AND COKF I GLRAT ION FOR 8, 16, 24, OR 32K OF 

0k;i2* MEMOKY» 

qViaI the AREAS PUNCHED ARE 4 THROUGH 'CONTENTS OF FWAM* -I AND 

0015* 'CONTENTS OF L><AM' ♦! THROUGH 'CONTENTS OF LWM'» I.E., SYSTEM 

0316* CODE AND DRIVER CODE, 

01^17* 

0018* TU OPERATt - 

idtli* I) LOAD THE PBS TAPE WITH THE PROTECTED LOADER, 

0fc21* 2) (OPTIONAL) LOAD BASIC INTERPRETER ('CALL ROUTINES 

0^22* MAY ALSO BE LOADED IF DESIRED), 

0w23* 3) 'LOAD ADDRESS* 2 AND 'PRESET'. 

^-.024* 4) SET SELECT CODE OF TELETYPE (IN OCTAL) INTO THE 

.1,25* SWITCH REGISTER. SET SWITCH lb TO 1 IF USING A 

c^^fS* SERIAL TELETYPE BOARD. 

0t27* 6) SET TELETYPE TO 'LINE,' TURN ON HIGH-SPEED TAPE PUNCH 

flings* IF PRESENT, AND PRESS 'RUN', 

iJt-29* 6) ANSWER TELETYPE REQUESTS APPROPRIATELY, 

0g30* 7) AFTER THE >-LT 778, PRESS 'RUN' FOR EXTRA COPIES. 

06-31* 

0C.32 

fe»033* 

0034 

0^35 

&k^3b* 

efj37 00004 



SUP SUPPRESS LISTING OF MULTIPLE OPERANDS 



00002 1240fc»3 JMP 3,1 BEGIN 

03*a03 016333 UEF START EXECUTION 

103004 HLT 4,C IN CASE OF POWER FAIL 

1^2005 HLT 5 IN CASE OF PARITY FAULT 



0fc;39 00006 000000 OCT 0,0, 8, 0, 0, , 0, P-r ^"tMieLr.Ji rnrJl^ONS 

0v,40 00P'l7 0001^00 OCT 0,0,0,0,0,0,0,^,0 INTERRUPT LOCATIONS 
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Bki42 16333 OHQ 16333B 

0044* 16333 107700 START CLC 0,0 TURN OFF INTERRUPTr ALL DEVICES 

0045 16334 102501 LIA I LOAD FROM SWITCH REQISTER 

0046 16335 0k)l623 ELArRAR PUT A<15) INTO (E» 
0ld47 16336 013223 AND B77 MASK TO 6 BITS 
0fc)48 16337 073244 STA lOADR SAVE I/O ADDRESS 

0049 16345! 001121 ARS,ARS SHIFT OUT FIRST OCTAL DI8IT 

0050 16341 001100 ARS 

0051 16342 0020feJ2 SZA IS I/O ADDRESS 6T 7 

0052 16343 026346 JHP GOMAN YES THEN OK 
0053* 

0054 16344 102055 HLT 55B INVALID TTV ADDRESS HALT 

0055 16346 026334 JHP START*1 TRY AGAIN 
0056* 

0057* SET TELETYPE I/C INSTRUCTION ADDRESSES 

0059 16^46 002040 GOKAN SEZ BUFFERED TELETYPE? 

00b0 16347 127240 JMP SERLa,I NO 

0061 16350 063210 LDA M24 YES, LOAD # OF INSTRUCTIONS 

0062 16351 067301 LDB LSTIA ADDRESS OF INSTRUCTION LIST 
0ki63 16352 016646 JS8 SETI SET TTY I/O ADDRESSES 
0064* 

0065* CALL FOK HHOTUREADER ADDRESS INPUT 
0066* 

0067 16353 016642 PHRDR JSB CRLFU DO A CR/LF 

0068 16354 063206 LDA M27 MESSAGE LENGTH, NEGATIVE NO CRLF 

0069 16355 067056 LDB MAI MESSAGE ADDRESS 
01^70 16356 016571 JSB GETAU GET ADDRESS 

16357 026371 JMP NORDH ADDRESS mgi, NO READER 

16360 063214 LDA M5 VALID READER ADDRESS 

16361 067310 LDB L8T2A READER INSTRUCTION ADDRESS LIST 



0k*71 
0072 
0073 
0k-74 



16362 016646 JSB SETI SET READER I/O INSTRUCTIONS 

0075 16363 063307 LDA RO SET CLC RDR 

0076 16364 073524 PHRDl STA R.OFF INSTRUCTION 

0077 163t>5 063247 LDA LWAMR 

0078 16366 070111 STA LlHAM SET LAST WORD AVAILABLE MEMORY 

0079 16367 002004 INA 

0080 16370 070101 STA 101B SET READER LINK 

0061* 

0082* CALL FOR PUNCH ADDRESS INPUT 

0083* 

0ti84 16371 016642 NORDR JSB CRLFD 

0085 16372 063211 LDA M20 

0086 16373 067075 LDB MA2 

0087 16374 016571 JSB GETAO CALL FOR PUNCH ADDRESS INPUT 
0K188 16375 026407 JMP SYSDP NO PUNCH 

0089 16376 063214 LDAM5 VALID PUNCH ADDRESS _^^^^,,^^ 

0090 16377 067317 LDB LST3A PUNCH INSTRUCTION ADDRESS LIST 

0091 16400 016646 JSB SETI SET PUNCH I/O INSTRUCTIONS 

0092 16401 063316 LDA PO SET CLC PNCH 

0093 16402 073525 NORDl STA P. OFF INSTRUCTION 

0094 16403 063250 LDA LWAMP 

0095 16404 070UI STA LWAM SET LWAM 

0096 16405 002004 INA 

0097 16406 070103 STA 103B SET PUNCH LINK 
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0096* 

0099* 

0100* 

0101 

01&2 

0103 

0104 

0105 

0106 

0107 

0106 

0109 

0110 

0111* 

0112* 

0113* 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

fcl25 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

f 133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 



CALL FOK DUMP DEVICE ADDRESS 



16407 
16410 
16411 
16412 
16413 
16414 
16415 
Ib4l6 
16417 
1642(^ 



016642 SYSDP JSB CRLFD 



063207 
067143 
016571 
026421 
063215 
067324 
016646 
063246 
073245 



tOA M2S 
LDB MA5 
JSB 6ETAD 
JMP CORAD 
IDA CM. 4 
LDB LST4A 
JSB SETI 
LDA PNCHI 
STA PNCHO 



CALL FOK LORE SIZE 



16421 
16422 
16423 
16424 
16425 
16426 
16427 
16430 
16431 
16432 
16433 
16434 
16435 
16436 
16437 
16440 
16441 
16442 
16443 
16444 
16445 
16446 
16447 
164SI?' 
16451 
16452 
16453 
16454 



016642 
063213 
067161 
017445 
063221 
0670U) 
0000U0 
017426 
000000 
002003 
026532 
163010 
053227 
026532 
006400 
053230 
026455 
006004 
053231 
026455 
00&004 
053232 
026455 
016642 
063212 
067170 
017445 
026421 



CORAD 



CORAl 



C0RA2 



CR/LF 



6ET DUMP I/O ADDRESS 
NO SYSTEM DUMP DEVICE AVAILABLE 
SYSTEM DUMP DEVICE AVAILABLE 
SET DEVICE'S I/O INSTRUCTIONS 

SET PUNCH OUTPUT TO REFERENCE 
HIGH SPEED PUNCH ROUTINE 



C0RA3 



JSB CRLFD 




LDA hl2 


REQUEST 


LDB MA6 




JSB TTY.P 


CORE 


LDA .20 




LDB BUF 


SIZE 


NOP 




JSH TTY.I 




NOP 




SZAfRSS 


NULL ANSWER? 


JMP DUMP 


YES, ASSUME 8K 


LDA BUF, I 


NO 


CPA C8K 


•8 NULL*? 


JMP DUMP 


YES 


CL8 


NO 


CPA C16K 


•16'7 


JMP RELOC 


YES 


INB 


NO 


CPA C24K 


• 24«7 


JMP RELOC 


YES 


INB 


NO 


CPA C32K 


•32'? 


JMP RELOC 


YES 


JSB CRLFD 


NO 


LDA M15 




LDB MA7 


PRINT 


JSB TTY.P 


ERROR 


JMP CORAU 


TRY AGAIN 
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0143* 
0144* 

0145* 

0146 

6)147 

0148 

0149 

0160 

£1151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 
0163 
0164 
0166 
0166 
0167 
0168 
0169 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
0160 
0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
0190 



RELOCATE DRIVERS 



16455 
16456 
164D7 
1646fi 
16461 
16462 
16463 
16464 
16465 
16466 
16467 
16470 
16471 
16472 
16473 
16474 
16475 
16476 
16477 
16500 
16531 
165,()2 
16503 
16504 
16505 
16506 
16507 
16510 
16511 
16512 
16513 
16514 
16515 
16516 
16517 
16520 
16521 
16522 
16523 
16524 
16525 
16526 
16527 
16530 
16531 



047233 
164001 

063237 

04«)001 
07^237 
063672 
04i()001 
073672 
06i4101 
04^k;01 
00^1^21 
070101 
060102 
040001 
070102 
060103 
040001 
002021 
070103 
060104 
040001 
070104 
060111 
073241 
040001 
070111 
073242 
060123 
040001 
070123 
060124 
040001 
070124 
060125 
040001 
070125 
067237 
007004 
0441U 
037241 
037242 
163241 
173242 
006006 
026524 



RELOC AOB 
LDB 
LDA 
ADA 
STA 
LDA 
ADA 
STA 
LDA 
ADA 
SSA 
STA 
LDA 
ADA 
STA 
LDA 
ADA 
SSA 
STA 
LDA 
ADA 
STA 
LDA 
STA 
ADA 
STA 
STA 
LDA 
ADA 
STA 
LDA 
ADA 
STA 
LDA 
ADA 
STA 
LDB 
CMB 
ADB 

MOREH ISZ 
ISZ 
LDA 
STA 
IN6 
JMP 



INCIN 

Ifl 

LWM 

1 

LWM 

CRLFA 

1 

CRLFA 

101B 

1 
,RSS 

1018 

102B 

1 

102B 

1038 

1 
rRSS 

103B 

104B 

1 

104B 

LMAH 

SOURC 

1 

LWAM 

DEST 

IMOFF 

1 

IMOFF 

IMON 

1 

IMON 

TLINK 

1 

TLINK 

LWM 
f INB 

LWAM 

SOURC 

DEST 

SOURCyl 

DESTrl 
rSZB 

MOREM 



LOAD 

DISPLACEMENT 
ADJUST 

ABSOLUTE 

POINTERS 



SAVE ADDRESS OF DRIVER MODULE 



SET DESTINATION ADDRESS 



COMPUTE 

# OF WORDS 
TO BE MOVED 
ADVANCE 

POINTERS 
MOVE A 

WORD 
DONE? 
NO 
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0193* 

0194* 

019b 

0196 

0197 

019B 

0199 

02(90 

02C:1 

0202 

0203 

2 (t) 4 

02«5 

0206 

0208* 

0209 

021ki 

0211 

0212* 

0213 

0214 

0215 

02lo* 

0217 

0218 

0219 

0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0228 



THIS SECTIO^ DUMPS THE ELEMENTS OF THE SYSTEM LOADED 



16532 
16533 
16534 
16635 
16536 
16b37 
16540 
16S41 
16542 
16543 
16944 
16S45 
16546 



016642 
0601U 
043204 
070131 
070117 
043203 
070134 
043216 
070111 
070106 
063245 
053246 
026555 



DUfP 



16547 063222 

16550 067110 

16551 017445 

16552 06i!}126 

16553 070127 
16534 102011 



16555 
16506 
16537 
16560 
16561 
16562 
16563 
16564 
16565 
16566 
16667 
16570 



017004 
063220 
007400 
044110 
016734 
060111 
043224 
067237 
016734 
017004 
ie2077 
026555 



DUJ»P1 
DUf'P2 



COPY 



JSB CRLFD 
LDA LWAM 
ADA M36 
STA lOBFA 
STA 8YMTA 
ADA M97 
STA SBUFA 
ADA Ml 
STA LWAM 
STA LWBM 
LDA PNCHO 
CPA PNCHI 
JMP COPY 

LOA .30 
LDB MA3 
JSB TTY.P 

LDA PLSTK 
STA LISTR 
HLT UB 



JSB 
LDA 
CCB 
ADB 
JSB 
LDA 
ADA 
LDB 
JSB 
JSB 
HLT 
JMP 



LTG 
.4 

PNCHA 

LMAM 

.135 

LWM 

PNCHA 

LTG 

77B 

COPY 



SET STARTING 

ADDRESS FOR 
I/O BUFFER 
SET SYMBOL TABLE POINTER 
SET STARTING ADDRESS 

FOR SYNTAX BUFFER 

SAVE VALUE CORRECTED FOR BUFFERS 
FOR STAND-ALONE OPERATION 

SYSTEM DUMP DEVICE AVAILABLE? 
PUNCH IS AVAILABLE 



REQUEST TTY PUNCH ON 

PREPARE TO 
PUNCH 



GENERATE LEADER 
DUMP 

LOCATIONS 4 
THROUGH 
(FWAM)-l 
DUMP 

DRIVER 
AREA 

GENERATE TRAILER 
END OF DUMP ROUTINE 
60 MAKE ANOTHER COPY 
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0232* 

^231* 

0?32* 

0233* 

0?34* 

3235* 

0236* 

0237* 

0238* 

0239* 

0240* 

0241* 

0242* 

0243* 

0244* 

0245* 

0246* 

0247* 

0248* 

0249* 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 

0261* 

0262 

0263 

0264 

0265 

0266 

0267 

0266* 

0269 

0270 

0271 

0272 

0273 

0274 

0275 
0276 
0277 
0276 
0279 
0280 
0281 
«282 
0283 



SUBROUTINE 6ETA£ 

THIS SUBROUTUE CALLS FOR I/O ADDRESS INPUT, PROCESSES THE 
INPUT AND IF INPUT VALID RETURNS TO P+2. IF NOTHING IS 
INPUlTED IT RETURNS TO P*l WITH LINK TO STOP IN A 



CALLi 



RETURN! 



JSa 6ETAD 
U) ■ LENGTH OF MESSAGE ASKING FOR I/O ADDRESS 
(B) ■> ADDRESS OF MESSAGE 



ZERO INPUT - P+l 
VALID ADDRESS - P+2 



(A> • LINK TO STOP 
(A) - I/O ADDRESS 



I/O ADDRESS IS SAVED IN LOCATION lOADR 

IF INPUT IS INVALID (IE NOT TWO NUMBERS 10-77) 

"INVALID I/O ADDRESS" IS TYPED AND IT WAITS 
FOR FURTI-ER INPUT. 



16571 
16572 
16573 
16S74 

16675 
16576 
16577 

16600 
166^51 
166*'32 
16633 

16604 
lb605 
16606 
16607 
16610 
16611 

16612 
16613 
16614 
16615 
16616 
16617 
lo620 
16621 
16622 
16623 
16624 
16625 
16626 
16627 
16630 



000000 
017445 
063221 
067010 
000000 
017426 

0000VCI0 

K02003 
126571 
053656 
020612 

016642 
063221 
067130 
017445 
016642 
026573 

163010 
001727 
016631 
026604 
002003 
0266(14 

001723 
073244 
163*310 
016&31 
026604 
033244 
073244 
036571 
126571 



6ETAD 



INPUT 



6ETA1 



NOP 

JSB 

LDA 

LDB 

NOP 

JSB 

NOP 

SZArRSS 

JMP GETAD,I 

CPA ,2 

JMP TWOCH 



TTY.P 
.20 

BUF 

TTY.l 



PRINT INPUT REQUEST MESSAGE 



WAIT 
FOR 

INPUT 
ANY ADDRESS? 
NO ADDRESS 

TWO CHARACTERS INPUT? 
TWO CHARACTERS INPUTTED 



ERRO. 



6ETA2 



TWCCH 



JSb 
LDA 
LDB 
JSB 
JSB 
JMP 



CRLFD 

.20 

MA4 

TTY.P 

CRLFD 

INPUT 



LDA BUFrl 
ALF,ALF 
JSB NBER 
JMP ERRO, 
SZAfRSS 
JMP ERRO. 
ALFfRAR 
STA lOADR 
LDA BUF, I 
JSB NBER 
JMP ERRO. 
lOR lOADH 
STA lOADR 
ISZ GETAD 
JMP GETADrl 



INVALID INPUT ERROR 



PRINT 'INVALID INPUT* 

DO A RETURN AND LINE FEED 

RETURN FOR MORE INPUT 

GET FIRST TWO CHARACTERS 
LOOK AT FIRST CHARACTER 
CHECK FOR VALID OCTAL > YES, CONVRT 
NOT OCTAL 
ADDRESS > 7 ? 
NO 

MOVE FIRST DISIT 3 BITS LEFT 
AND SAVE 

CHECK SECOND CHARACTER 

NOT OCTAL 

FORM TWO DIGIT OCTAL NUMBER 

SAVE I/O ADDRESS 

NON-ZERO I/O ADDRESS 

RETURN 
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0285* 

0266* SUBROUTINE NBER 

02B7* 

B288* THIS SUBROUTINE CHECKS WHETHER THE CHARACTER IN A REPRESENTS 

0289* A VALID OCTAL DIGIT. IF THE CHARACTER IS VALID IT IS 

0290* CONVEKTEO TC AN OCTAL D10IT» 

0291* 

0292* RETURN! P+1 INVALID OCTAL CHARACTER 

0293* P+2 VALID OCTAL CHARACTER 

0294* (A) ■ OCTAL DIGIT 

0295* 

0296* 

0297 16631 000000 NBER NOP 

0298 16632 013666 AND 8177 MASK TO ONE CHARACTER 

0299 16633 043205 ADA N60 SUBTRACT OCTAL 60 

0300 16634 070001 STA 1 TRANSFER TO B 

0301 16615 005121 BRSfBRS 

0302 16636 005100 BR8 SHIFT OUT FIRST 3 BITS 

0303 16637 006003 SZB,RSS IS B ZERO 

0304 16640 036631 181 NBER B-0, VALID DIGIT, RETURN TO P+2 

0305 16641 126631 JMP NBER, I RETURN 



0307* 

0308* SUBROUTINE CRLFD OUTPUTS A CARRIAGE RETURN AND LINE FEED, 

0309* 

0310 16642 000000 CRLFD NOP EXIT/ENTRY 

0311 16643 002400 CLA 

0312 16644 017445 CRLFl JS8 TTY.P DO CR/LF 

0313 16645 126642 JMP CRLFD, I EXIT 
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0315* 

0316* SUbROUTlNE SETI 

0317* 

0318* THIS SUBROUTINE MODIFIES THE ADDRESSES SPECIFIED IN A LIST 

0019* 

0320* CALL* JSa SETI 

0321* (A) ■ NUMBER UF LOCATIONS TO BE MODIFIED (2'3 COMP) 

0322* (B) ■ STARTING ADDRESS OF LIST OF ADDRESSES 

0323* 

0324* 

0325 16646 000000 SETI NOP EXIT/ENTRY 

0326 16647 073676 STA COUNT SAVE LENGTH OF LIST 

0327 16650 077675 STB BADDR SET LIST STARTING ADDRESS 

0328 16651 167675 LOCP LDB BADDH,! LOAD ADDRESS OF INSTRUCTION 

0329 1665? 160301 LDA 1,1 LOAD INSTRUCTION TO BE MODIFIED 

0330 16633 013201 ANC MASK ZERO I/O PART, MASK»l777a0 

0331 16654 033244 lOR lOADR INSERT I/O ADDRESS 

0332 16655 170001 STA 1,1 SET MODIFIED INSTRUCTION 

0333 16656 037675 ISZ BADDR INDEX LIST POINTER 

0334 16657 037676 ISZ COUNT 

0335 1666P 026651 JMP LOOP GO DO NEXT LOCATION 

0336 10061 126646 JMP SETI, I RETURN 



0338* 

0339* SUBROUTINE (TOUT) TO OUTPUT ONE CHARACTER 

B340* TO TELETYPE, CHARACTER IS IN (A). (B) IS NOT ALTERED, 

0341* 

0342 16662 0000K0 TOLT NOP 

0343 16663 102600 TP.ll OTA TTY LOAD BOARD BUFFER 

0344 16664 103700 STC TTY,C GIVE PUNCH COMMAND 

0345 16665 102300 SFS TTY WAIT FOR 

0346 16666 026665 JMP *-l COMPLETION 

0347 16667 126662 JMP TOUT, I 



0349* 

0350* SUBROUTINE (POUT) TO OUTPUT ONE CHARACTER TO 

0351* PUNCH DEVICE. CHARACTER IS IN (A), (8) IS NOT ALTERED. 

0352* 

0353 16670 000000 POIT 

0354 16671 102600 

0355 16672 103700 

0356 16673 102300 

0357 16674 026673 

0358 16675 126670 



NOP 






OTA 


PNCH 


FILL BOARD BUFFER 


STC 


PNCH,C 


REQUEST PUNCH 


SFS 


PNCH 


WAIT UNTIL 


JMP 


*-l 


DONE 


JMP 


POUT, I 
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0360* 
0361* 
0362* 
0363* 

0364* 
0365* 
0366* 
0367* 
0366* 

(y369* 

0370* 

0371* 

0372* 

0373* 

0374* 

0375* 

0376* 

0377 

0378 

0379 

0360 

0381 

0382 

0383 

0384 

0385* 

0386 

0387 

0388 

0389* 

0390* 

0391* 

0392 

0393 

0394 

0395 

0396 

0397 

0398 

0399 

0400 

0401 

0402* 

0403* 

0404* 

0405 

0406 

0407 

04(98 

0409 

0410 

04U 

0412 

0413 



8UPR0UTUNE PUNCH 

THIS SUBROUTINE PROVIDES THE MEANS OF PUNCHIN8 BINARY 
RECORDS ON THE TELETYPE OR HIGH SPEED PUNCH, 

CALLING SEQUENCE JSB PUNCH 

(A) ■ LENGTH (AND MODE) OF RECORD TO BE OUTPUT 

(B) » STARTING ADDRESS OF DATA BUFFER 

BINARY OUTPUT IS INDICATED BY A NEGATIVE (28 COMPLE- 
MENT) VALUE IN A. THIS NEGATIVE VALUE IS THE 
NUMBER OF WORDS TO BE OUTPUT. 



IF A 







ON ENTRY 10 INCHES OF FEED FRAMES ARE PUNCHED 



16676 000000 PUNCH NOP 



16677 077050 

16700 067515 

167!21 106600 

16732 002002 

16793 026706 

167vi4 063202 

16705 026724 

16706 001000 

16707 073243 
16710 067226 



STB BUFF 

LDB PMODE 

TP,9 0TB TTY 
SZA 

JMP *+3 

LDA .200 

JMP PP03+1 

ALS 

STA CHCl 

LDB UL52 



CHARACTER OUTPUT SECTION 
16711 163050 PPe2 LDA BUFF, I 



16712 
16713 
16714 
16715 
16716 
16717 
16720 
16721 
16722 



006021 
001727 
013225 
117245 
006M20 
037050 
005200 
037243 
026711 



SSBi 


,RSS 


ALFi 


,ALF 


AND 


M377 


JSB 


PNCHCI 


SSB 




ISZ 


BUFF 


RBL 




ISZ 


CHCl 


JMP 


PP02 



COMPLETION SECTION 

16723 063215 PPBS LDA CM. 4 

16724 073050 

16725 002400 

16726 117245 

16727 037050 

16730 026725 

16731 106700 

16732 106700 PNfi 



STA BUFF 
CLA 
JSB 
ISZ 
JMP 
TP,10 CLC 



PNCHO,I 
BUFF 
• -3 
TTY 



16733 126676 



CLC PNCH 

JMP PUNCHfl EXIT 



EXIT/ENTRY 

SAVE STARTING ADDRESS OF BUFFER 

SET TTY TO PUNCH MODE 
CHECK FOR FEED FRAMES ONLY 
NOT FEED FRAME MODE 

DO FEED FRAMES ONLY 

CONVERT COUNT TO CHARACTERS (X2» 
AS COUNTER FOR OUTPUT SECTION. 
SET UPPER/LOWER INDICATOR 



GET WORD CONTAINING CHARACTER 
IF UPPER/LOWER FLAG SaYS UPPER 

(SIGN ■ 0) ROTATE TO LOWER 
REMOVE UPPER CHARACTER 
OUTPUT CHARACTER 
IF CHAR, OUTPUT WAS LOWER CHAR., 

ADD i TO BUFFER ADDRESS. 
SET UPPER/LOWER FLAG FOR NEXT CHA 
INDEX CHARACTER COUNTER, 

NOT ZERO, MORE TO OUTPUT, 



BINARY SECTION. SET BUFF - -4 

FOR COUNTER FOR FEED-FRAMES 
SET A ■ ZERO( FEED-FRAME). 
OUTPUT FEED FRAME 
INDEX COUNTER 

CONTINUE OUTPUT 

TURN OFF TTY 

TURN OFF PUNCH 
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041b* 

0416* 

0417* 

0418* 

0419* 

0420* 

0421* 

0422 

0423 

0424 

0425 

0426 

0427 

042S 

0429 

0430 

0431 

0432 

0433 

0434 

0435 

04v56* 

0437 

0438 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446 

0447 

0448 

0449* 

0450 

0451 

0452 

0453 

0454 

0455 

0456 

0457 

0453 

0459 

0460* 

0461 

0462 

0463 

0464 



SUHkOUTINE- PNCHA (PUNCH ABSOLUTE BLOCK) 



UPON ENTRY " 

(A) « AUDRE8S OF 
(b) ■ ADDRESS OF 



16734 
16735 
16736 
16737 
16740 
16741 
16742 
16743 
16744 
16/45 
16746 
16747 
16750 
16751 

16752 
16753 
16754 
16755 
16756 
16757 
16760 
16761 
16762 
16763 
16764 
16765 

16766 
16707 
16770 
16771 
16772 
16773 
16774 
16775 
16776 
16777 



000000 
006004 
073051 
077052 
063206 
073053 
063051 
1730U 
073055 
002400 
173010 
063010 
043656 
073054 

163051 
173054 
037051 
037054 
043055 
073055 
137010 
063051 
053<^52 
026766 
037053 
026752 

063055 
173054 
163010 
001727 
173010 
001727 
043217 
0030ii!i4 
067010 
016676 



PNCHA 



PI 



P2 



P3 



FIRST MOHD OF BLOCK 
LAST WORD OF BLOCK 



NOP 
INB 
STA 
STB 
LDA 
STA 
LDA 
STA 
STA 
CLA 
STA 
LDA 
ADA 
STA 

LDA 
STA 
ISZ 
ISZ 
ADA 
STA 
ISZ 
LDA 
CPA 
JMP 
ISZ 
JMP 



Tl 
T2 
M27 

T3 
Tl 

BUFIW 
CKSUM 

BUFrl 
BUF 
.2 
T4 

Tl,I 

T4,I 

Tl 

T4 

CKSUM 

CKSUM 

BUF, I 

Tl 

T2 

P3 

T3 

P2 



17000 063051 

17001 053052 

17002 126734 
17903 026740 



LDA CKSUM 
STA T4rl 
LDA BUF, I 
ALFrALF 
STA BUF, I 
ALF,ALF 
ADA C.P»3 
CMA, INA 
LDB BUF 
JSB PUNCH 

LDA Tl 
CPA T2 
JMP PNCHA, I 
JMP PI 



SET ■ TO LAST ♦IM FOR EOB CHECK 
SAVE FIRST AND LAST WORD 

ADDRESSES OF BLOCK. 
SET T3 • -27 AS INDEX F6R 

FILLING BUFFER, 
SET BUF+1 FOR LOAD ADDRESS 

OF CURRENT BLOCK. 
INITIALIZE CHECKSUM WORD. 
INITIALIZE 

WORD COUNT 
SET T4 " ADDRESS 

OF WORD 3 OF BUFFER 
FOR ST0RIN8 WORDS. 

STORE CURRENT WORD FORM MEMORY 

BLOCK IN BUFFER. 

BUMP BLOCK ADDRESS 
ADD 1 TO BUFFER ADD950J3 
ADD WORD TO CUMULATED 

CHECKSUM 
COUNT WORD STORED IN BUFFER. 
CHECK FOR END OF BLOCK. 

YES, FWA • LWA. 
INDEX BUFFER COUNTER. 
BUFFER NOT YET FILLED. 

BUFFER FILLED, SET CHECKSUM IN 
LAST WORD IN BUFFER. 
POSITION RECORD 

WORD COUNT TO 
UPPER CHARACTER IN WORD 1. 
REPOSITION, ADD 3 FOR 

TOTAL RECORD LENGTH, SET 
NEGATIVE FOR OUTPUT. 

(6) > ADDR. OF BUFFER. 

PUNCH RECORD 

CHECK AGAIN FOR COMPLETION OF 
PUNCHING BLOCK. 
YES, EXIT. 
NO, SET NEXT RECORD, 
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UA66* 
0467* 

0468* 

Id469« 

0470* 

0471* 

0472* 

0473 

bA74 

ly475 

0476 



SU8R0UTINEI LT6 (LEADER/TRAILER GENERATOR) 



LTG PRODUCES APPROXIMATELY 10-INCHES 
OF BLANK TAPE (FEED-FRAMES) 



17004 000000 

17005 002400 

17006 016676 

17007 127004 



LTG 



NOP 

CLA 

JSB PUNCH 

JMP LTG, I 



SET FEED FRAME MODE 
PUNCH FEED FRAMES 
EXIT, 



A«0 



0478* 

0479* 

0483* 

0481 

0462 

0463* 

0484 

0465 

0486 

0487 

0486 

0489 



PUNCH BUFFER 



17010 
17011 

17012 
17050 
17351 
17052 
17053 
17054 



017012 
017013 

000000 
0000k>0 
000000 
000000 
000000 
000000 



BUF 
BUFl 

BUFFR 

BUFF 

Tl 

T2 

T3 

T4 



DEF 
DEF 

BSS 
NOP 
NOP 
NOP 
NOP 
NOP 



BUFFR 
BUFFR+l 

30 



0490 17055 000000 CKSUh NOP 



0492* 

0493* MESSAGE STORAGE SECTION 

0494* 

0495 17056 0170S7 MAI DEF MSGl 

0496 17057 020120 f-SGl ASC 14» PHOTO READER I/O ADDRESS? 

0497 17075 0171^76 MA2 tEF MS62 

0498 17076 020120 '^S62 ASC I0r PUNCH I/O ADDRESS? 

0499 17110 017111 MA2 DEF MSQ3 

0500 17111 020124 MSG3 ASC I5r TURN ON TTY PUNCH, PRESS RUN 

0501 17130 017131 MA4 DEF MS64 

0502 17131 020111 MS64 ASC I0r INVALID I/O ADDRESS 

0503 17143 017144 MAS DEF H8G5 

0504 17144 020123 MS65 ASC 13r SYSTEM DUMP I/O ADDRESS? 

0505 17161 017162 MAC DEF M3Q6 

0506 17162 0201W3 MSG6 ASC 6, CORE SIZE? 

0507 17170 017171 MA7 DEF MSG7 

0508 17171 020111 MS67 ASC 8, IMPROPER INPUT 
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0510* 

0511* 

0512* 

0513 

0514 

0515 

0516 

0517 

0518 

0519 

0520 

0521 

0522 

0523 

0524 

0525 

0526 

0527 

0528 

0529 

0530 

0531 

0532 

0533 

0534 

0535* 

0536 

0537 

0538 

0539 

0540* 

0541 

0542 

0543 

0544 

0545* 

0546 

0547 

0548* 

0549 

0550 

0551 

0552 

0553* 

0554 

0555 

0556* 

0557 

0556 



CONSTANT AND DATA SECTION 



17201 
17202 
17233 
17204 
172^5 
17206 
17207 
17210 
17211 
17212 
17213 
17214 
17215 
17216 
17217 
17220 
17221 
17222 
17223 
17224 
17225 
17226 



177700 
177470 
177637 
177734 
177720 
177745 
177747 
177750 
177754 
177761 
177764 
177773 
177774 
177777 
000003 
000004 
000024 
000036 
000077 
000207 
000377 
052525 



17227 034000 

17230 030466 

17231 031064 

17232 031462 

17233 017234 

17234 020000 

17235 040000 

17236 060000 



17237 
17240 



017677 
015073 



17241 000000 

17242 000000 

17243 000000 

17244 000000 



17245 
17246 

17247 
17250 



016662 
016670 

017367 
017346 



hASK OCT 177700 

,280 DEC -200 

M97 DEC -97 

M36 DEC -36 

N6a OCT -60 

M27 PEC -27 

M28 DEC -25 

M24 DEC -24 

M2e DEC -20 

M15 DEC -15 

M12 DEC -12 

H5 DEC -5 

CM. 4 DEC -4 

Ml DEC -I 

C.eS DEC 3 

.4 DEC 4 

,2t DEC 20 

.3e DEC 30 

B77 OCT 77 

.135 DEC 135 

M377 OCT 377 

UL52 OCT 52525 

C8K OCT 34000 

C16K OCT 30466 

C24K OCT 31064 

C32K OCT 31462 

INCIN DEF **1 

OCT 20090 
OCT 40000 
OCT 60000 

LWK DEF EOTC 
SERLA DEF SRIAL 

SOIRC NOP 
DEST NOP 
CHCl NOP 
lOADR NOP 



PNCHO 
PNCHI 



DEF 
DEF 



LINAMR DEF 
LWAMP DEF 



TOUT 
POUT 

,H8Prt-l 
,PNCH-1 



ACCEPTABLE 
CORE 
SIZE 

ANSWERS 



RELOCATION 

INCREMENTS 
LAST WORD AVAILABLE 



PUNCH LINK LOCATION 

PUNCH REFERENCE INSTRUCTION 

LWAM IF PHOTO READER 
LWAM IF PUNCH 
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0560* 

0561* LIST OF INSTRUCTIONS (ADDRESSES) TO BE SET 

0362* 

0563* 

0964* TEUETTPE INSTRtCTlONS ADDRESS LIST 

0565* 

0566 17261 017433 LISTl DEF TI.l 

0567 17252 017434 DEF TI,2 

0568 17253 017435 DEF TI.2+1 
0669 17254 017437 DEF TI,3 

0570 17256 017442 DEF TI,4 

0571 17256 017522 DEF TI,5 
0672 17257 017523 DEF Tl.5+1 
0573 1726e 017531 DEF TI.6 
6574 17261 017533 DEF TI.7 

0575 17262 017534 DEF TI,7*l 

0576 17263 017447 DEF TP.l 

0577 17264 017456 DEF TP.2-1 

0578 17265 017457 DEF TP.2 

0579 17266 917462 DEF TP,4 

0580 17267 017463 DEF TP.4*l 
0381 17270 017464 DEF TP,5 

0582 17271 017471 DEF TP.6 

0583 17272 017500 DEF TP.7 

0584 17273 017S02 DEF TP,8 

0585 17274 016701 DEF TP,9 

0586 17275 016731 DEF TP.10 

0587 17276 016663 DEF TP.ll 
0568 17277 016664 DEF TP.ll*! 
0589 17300 016665 DEF TP.ll*2 
0590* 

0591 17301 017251 LSHA DEF LlSTl 

0592* 

0593* PHOTO READER INSTRUCTIONS ADDRESS LIST 

0594* 

0595 17302 017407 LIST2 

0596 17303 017413 

0597 173144 017415 

0598 17305 017422 

0599 173^?i6 017307 
0600* 

0601 17307 106700 RO CLC RDR 

0602 17310 017302 LST2A DEF LIST2 
0603* 

0604* ril3H SPEED PUNCH INSTRUCTIONS ADDRESS LIST 

0605* 

0606 173U 017353 LIST3 DEF PN3 

004)7 17312 017354 DEF PN4 

0608 17313 017355 DEF PN5 

0609 17314 017362 OEF PN7 

0610 17315 017316 DEF PO 
0611* 

0612 17316 106700 PO CLC PNCH 

0613 17317 017311 L8T3A DEF LIST3 



DEF 


PR3 


OEF 


PR5 


DEF 


PR6 


DEF 


PR7 


DEF 


RO 
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0615* 

0616*' SYSTEM DUMP INSTRUCTIONS ADDRESS LIST 

0617* 

15618 17320 016732 LIST4 DEF PN8 

0619 17321 016671 DEF POUT*l 

0620 17322 016672 DEF P0UT*2 

0621 17323 016673 DEF POUT+3 
0622* 

0623 17324 017320 LST4A DEF LIST4 



0625* 

0626* SKIP DIFFERENCE IN WORDS BETWEEN PARALLEL AND 

0627* SERIAL TELETYPE PACKAGES, 

0628* 

0629 17325 000000 8SS ?2B ( STOPI-SPNCH »-( TT, I I-,PNCH) 



PAGE 0016 #02 BASIC SYSTEM HIGH SPEED PUNCH DRIVER 

Sees************** BASIC SYSTEM HI6H SPEED PUNCH DRIVER **************** 

0004* 

0^105* OUTPUTS ASCII THROUGH THE HIGH SPEED PUNCH 

0006* 

0007* CALL* JSB 1036,1 

0^08* 

0009* (A) • NUHBER OF CHARACTERS TO BE PUNCHED 

00ia* (B) - STARTING ADDRESS OF BUFFER 
U0U* 

0013* IF (*) IS >- THEN OUTPUT (A) CHARACTERS 

0M14* FOLLOWED BY A CARRIAGE RETURN-LINE FEED. 

0016* IF (A) < THEN PUNCH -(A) CHARACTERS ONLY. 

lllll BUFFER CONTAINS ASCII CHARACTERS PACKED TWO PER WORD. 

00^0* IF (b) . 01* ENTRY (A) FEED FRAMES ARE PUNCHED. 

0021* IF (A) - ON ENTRY ONLY A CR/LF IS PUNCHED. 
0022* 

sir ultl ITjTzI PNl'" JSB INIT INITIALIZE FOR PUNCHING 

mi iJzll IMII PN2 JSB GETCH GET NEXT CHARACTER FROM BUFFER 

0B27 17352 027360 JHP PN6 BUFFER EMPTY 

0^28 7353 102600 PN3 OTA PNCH LOAD PUNCH BUFFER 

0^29 17354 103700 PN4 STC PNCH,C GIVE PUNCH COMMAND 

0030 17355 102300 PN8 SF8 PNCH rnp piimch READY 

0031 17356 027355 JMP *-l WAIT FOR PUNCH READY 

0032 17357 027351 JMP PN2 GET NEXT CHARACTER 

0033* 

0034 17360 063671 PN6 LDA lORI »..„.. 

0035 17361 073633 STA FIN8H*1 RESTORE lOR INSTRUCTION 

0036 17362 106700 PN7 CLC PNCH TURN OFF PUNCH .^ ^ ^ 

0037 7363 002141 SEZ,CLE,RSS RECORD COMPLETE? CLEAR E 

0038 7364 127347 JMP .PNCH, I E-0, OUTPUT COMPLETE 

0039 7365 063665 LDA M2 E-W APPEND CR AND LF 
nil Ijill 067672 LDB CRLFA LOAD ADDRESS OF CR AND LF 
0041 



17367 027350 JMP PNl DO CR/LF 
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0to44*************** BASIC SYSTEM PtiOTO READER DRIVER ****************** 

0(^45* 

0*)46* INPUTS TAPE RECORDS THROUGH THE PHOTO READER 

a(«47* 

0048* CALLt JSB 101BrI 

0k,49* 

3^50* (A) ■ MAXIMUM NUMBER CHARS IN RECORD 

0651* (B) ■ BUFFER STARTING ADDRESS 

0»i52* 

0ki53* ON RETURN (A>» -I TOO MANY CHARACTERS IN RECORD 

0M54* (A)« -2 END OF TAPE DETECTED 

01055* (A>« -3 NO TAPt OR GATE DOWN 

0056* (A>« NUMBER UF CHARACTERS IN RECORD 

0057* 

aasa* INPUT IS PACKED TWO CHARACTERS PER WORD IN BUFFER, 

0KJ69* 

0060* ALL RECORDS MUST BE TERMINATED WITH A LINE FEED, 

0061* THE NULL AND CARRIAGE RETURN CHARACTERS ARE IGNORED. 

0062* 

0063* THE LEFT aRROW(S) - DELETE THE PREVIOUS CHARACTER ( S ) . 

0064* 

0065* AN ALT MODE ANYWHERE BEFORE THE LINE FEED DELETES ALL 

0066* CHARACTERS IN THE RECORD. THE RECORD IS IGNORED. 

0*^67* ^^^„ 

0668* If 10 NULL CHARACTERS ARE DETECTED BEFORE ANY CHARACTER, 

0k)69« READING IS TERMINATED AND THE RETURN IS WITH A NULL RECORD. 

0tfj70* 

0/.72 17370 000000 ,HSPR NOP 

t;fc73 17371 073676 STA COUNT SAVE LENGTH 

kJl^74 17372 077674 STB BUFSA SAVE BUFFER STARTING ADDRESS 

0k75 17373 063653 PRl LDA Mil 

^1076 17374 073677 STA EOTC INITIALIZE EOT COUNTER 

ii><t>77 17375 067674 LDti BUFSA 

0k,7a 17376 077675 STB BADOR INITIALIZE BUFFER POINTER 

^6,79 17377 006400 CLB INITIALIZE CHARACTER COUNT 

0tJ80 l74eE 006003 PR2 SZBrRSS ANY NON-NULL CHARACTERS YET? 

0W81 17401 002002 SZA NO, SKIP IF NULL 

0ki82 1741(52 027407 JMP PR3 

0i£,83 17403 037677 IS£ EOTC COUNT NULL 

0084 17404 027407 JHP PR3 NOT YET 10 NULLS 

0085 l74ij,5 063655 LDA M2 SET A TO INDICATE EOT (-2) 

0066 17406 027422 JMP PR7 10 NULLS, TURN OFF READER & EXIT 

0i?.97 174^7 103700 PR3 STC RUR,C REQUEST CHARACTER 



17411 002007 PR4 lNArSZA,RSS DELAY » 6.4 • 65K ■ ,41 SECONDS 

17412 027424 JMP PR8 (A)«0, NO TAPE OR GATE DOWN 



0k^88 17410 0024K0 CLA SET DELAY COUNT 

0089 

0090 

0091 17413 102300 PR6 SFS RDR 

0092 17414 027411 JMP PR4 NO FLAG, CHECK DELAY COUNT 
0t93 17415 103500 PRC LIA f<DR,C LOAD CHARACTER 

0094 17416 017537 JS8 PR0C3 PROCESS CHARACTER 

0095 17417 027400 JMP PR2 GET NEXT CHARACTER 

0096 17420 057655 CPB M2 RUBOUT IN THIS RECORD? 

0097 17421 027373 JMP PRl YES, IGNORE RECORD 

0098 17422 106700 PR7 CLC RDR TURN OFF READER 
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0099 17423 127370 JMP .HSPK,I 

0100* 

0101 17424 063654 PR8 LDA H3 LOAD 'NO TAPE* STATUS 

0102 17425 027422 JMP PR7 
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01&4* 

01ia&**************«**** BASIC SYSTEM TELETYPE INPUT DRIVER ************* 

01fci6* 

0107* INPUTS FKOM AN ASR 33/35 THROUSH THE 

0106* TELETYPE CONTROL BOARD FROM TAPE OR KEYBOARD. 

0109* 

k;ll0* CALL! JSB 1C(4B,1 

0111* 

0112* (A) « MAXIMUM NUMBER CHARS IN RECORD 

0113* (tt) » BUFFER STARTINS ADDRESS 

0114* 

0115* rtETURNt (A)« -I TOO MANY CHARACTERS IN RECORD 

0116* (A)« -2 RECORD DELETED 

0117* (A)« NUMBER OF CHARACTERS IN RECORD 

kills* 

01 19* 

kU20* THE CHARACTERS ARE PACKED TNO TO A WORD IN THE BUFFER. 

0121* 

0122* ALL RELUKDS MUST BE TERMINATED WITH A LINE FEED, 

0123* The null and carriage RETURN CHARACTERS ARE IGNORED. 

0124* 

0125* THE LEFT ARROW(S) ^ DELETE THE PREVIOUS CHARACTER (S » . 

0126* 

0127* AN ALT MODE ANYWHERE BEFORE THE LINE FEED DELETES ALL 

0128* CHARACTERS IN THE RECORD. THE RECORD IS IGNORED. 

012&* 

013I.** 

0131 17426 000000 TTY.I NOP 

0132 17427 073676 STA COUNT SAVE LENGTH 

01^3 17430 077675 STB BADDR SET BUFFER ADDRESS 

013'a 17431 006400 CL8 SET CHARACTER COUNTER 

U135 17432 063444 LI/A IMODt 

0136 17433 102600 FI.l OTA TIY SET TTY TO INPUT MODE 

J137 17434 103700 TI.2 STC TTY,C REQUEST CHARACTER 

ifll38 17435 102300 SFS TTY 

U139 17436 02?435 JMP *-l WAIT FOR CHARACTER INPUT 

0140 17437 102500 TI.3 LIA TTY LOAD CHARACTER 

0141 17440 017537 JS8 PROCS PROCESS CHARACTER 

0142 17441 02/434 JMP TI,2 GET NEXT CHARACTER 

0143 17442 136700 TI.4 CLC TTY 

0144 1/443 127426 JMP TTY. I, I RECORD COMPLETE RETURN 
0145* 

0146 17444 160000 IMCDE CCT 160000 LIST ONLY (INPUT-ASR 35) 
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0148* 

0i49*************** BASIC SYSTEM TELETYPE OUTPUT DRIVER *♦****•••***•*** 

0150* 

0151* OUTPUTS ASCII RECORDS THROUGH THE TELETYPE PRINTERr 

0152* PUNCH, OR BOTh. 

0153* 

01b4* CALLS JSB 102Bf! 

0155* 

0156* (A) ■ NlMbEH OF CHARACTERS TO BE OUTPUT 

Bi57» (B) ■ STARTING ADDRESS OF BUFFER 

k)15B* 

0159* 

0160* IF (A) IS >■ THEN OUTPUT (A) CHARACTERS 

0161* FOLLOWED BY A CARRIAGE RETURN-LINE FEED. 

0162* 

0163* IF (A) < TKEN PUNCH -(A) CHARACTERS ONLY. 

0164* 

0166* BUFFER CONTAINS ASCII CHARACTERS PACKED TWO PER WORD. 

0166* 

0167* IF (B) - ON tNTRY OUTPUT (A) FEED FRAMES, 

fcl66* IF (A) « OK ENTRY ONLY A CR/LF IS OUTPUT. 

0169* 

0170* 

0171 17445 000000 TTY.P NOP 

0172 17446 017636 JSb INIT INITIALIZE AND SETUP 

0173 17447 0600k!0 TP.l LDA TTY SAVE TTY INTERRUPT 

0174 17450 073517 STA TEMPI INSTRUCTION 
K)175 I74bl 0610127 LDA LISTK 

0176 17462 050126 CPA PLSTR PLIST7 

0177 17453 063515 LDA PMODE YES 

0178 17454 05W130 CPA TLSTK LIST? 
(5179 17^55 063516 LDA LMODE YES 

0180 17466 102600 OTA TTY SET TTY TO OUTPUT MODE 

0181 17457 074000 TP,2 STB TTY PUT NOP INTO INTERRUPT CELL 
0162 17460 017622 TP,3 JSB GETCN GET NEXT CHARACTER 

0183 17461 027502 JMP TP.8 BUFFER EMPTY 

0184 17462 102600 TP,4 OTA TTY LOAD TTY BOARD BUFFER 

0165 17463 103700 STC TTY,C GIVE PRINT COMMAND 

0166 17464 102300 TP,5 SFS TTY »<AIT FOR 

0187 17465 027464 JMP •-! FLAG 

0188 17466 063517 LDA TEMPI 

0189 17467 002003 SZA,R8S IS INTERRUPT ENABLED? 

0190 17470 027460 JMP TP,3 NO 

0191* 

0192* THIS SECTION CHECKS IF A CHARACTER HAS BEEN TYPED FROM THE 

0193* KEYBOARD DURING OUTPUT ON TELETYPE, 

0194* ^ 

0195 17471 102500 TP.6 LIA TTY LOAD FROM BOARD BUFFER 

0196 17472 003000 CMA FIRST 8 BITS SHOULD BE t'S 

0197 17473 013666 AND B177 

0198 17474 002003 SZAfRSS 

0199 17475 027460 JMP TP.3 NO KEY STRUCK, CONTINUE 

0200 17476 063671 LDA lORI 

0201 17477 073633 STA FINSH+1 RESTORE lOR INSTRUCTION 

0202 17S00 106700 TP,7 CLC TTY TURN OFF TTY 

0203 17501 114105 JSB I.STPrI GO TO STOP 
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0204 

02 k; 7 

02*)9 
02 H" 

13212 
^213 
0214 

iJ2l5« 

0216 

'3217 

(3218* 

0219 



17502 

173«3 

175to5 
17506 
17b5i7 
17blfc 
17&U 
17512 
17'3l3 
17i5U 



106700 
063517 
053536 
017527 
063671 
073633 
002141 
127445 
063655 
067672 
027446 



TP,8 



17*515 11W000 
17d16 120000 



PrtCDt 
LMCDE 



CLC TTY 
LDA TEMPI 
CPA TT.II 
JSB I. ON 
LDA lORI 
STA FINSM+l 
SE2fCLE,f<8S 
JHP TTY.PrI 
LDA M2 
LOB CRLFA 
JMP TTY.P+i 



OCT 
OCT 



110000 
120000 



TURN OFF TTY 

IS INTERRUPT MODE SET? 
YES, RE-ENABLE KEYBOARD 

RESTORE lOR INSTRUCTION 
RECORD COMPLETE? CLEAR E 
E»a, RECORD OUTPUT COMPLETE 
E»l, ADD A RETURN AND LINE FEED 
LOAD ADDRESS OF CR AND LF 
DO CR/LF 



PUNCH ONLY 
LIST ONLY 



(ASR 35) 
(ASR 35) 



17517 000000 TE^PI NOP 



0221* 

i)222* 

0223* 

0224 

0226 

0226 

0227 

0228 

0229 



THIS KOUTINE TUHNS OFF THE TELETYPE INTERRUPT MODE 



l/d20 mVS^9Vl 

17521 002400 

17522 070000 

17523 106700 

17524 000000 

17525 000000 

17526 127520 



I.CFP 



TI.5 



NOP 
CLA 
STA TTY 



CLC TTY 
H.CFF NOP 
P. OFF NOP 

JMP I.OFFrl 



SET NOP INTO INTERRUPT CELL 

TURN OFF READ MODE 

SET TO CLC RDR IF RDR EXISTS 

SET TO CLC PNCH IF PNCH EXISTS 

RETURN 



0232* 

0233* 

P234* 

0235 

0236 

0237 

0236 

Q239 

024«) 

0241 

0242* 

0243 



THIb ROUTINE TURNS ON THE TELETYPE INTERRUPT MODE 



7527 

7531? 
7531 
7532 
7533 
7534 
7535 



000000 

ki63536 

070000 
063444 
1026;>0 
103700 
127527 



I.CN 
TI,6 



TI.7 



NOP 
LDA 
STA 
LDA 
OTA 
STC 
JMP 



TT.II 

TTY 

IMOOt 

TTY 

TTY,C 

I.ON«I 



SET JSB INTO INTERRUPT CELL 

SET TTY TO INPUT MODE 

SET TTY TO LOOK FOR INPUT 
RETURN 



17536 114105 TT.II JSB I,STP,I INTERRUPT LOCATION CODE 
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0245* 

0246* 

0247* 

0248* 

B249* 

0250* 

0251* 

0252* 

0263* 

0254 

0255 

0256 

0257 

0238 

025V 



0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0278 
0279 
0260 
0281 
282 
0283 
02 N 
0285 
0286 
0287 
0288 



CHARACTER PROCESSING SECTION FOR TTY AND PHOTOREADER 
CALLt 



KETJRNi 



JSB PROCS 

(A) HOLDS CHARACTER 

F+l - SET NEXT CHARACTER 
F4-2 - RECORD COMPLETE 



17537 
17340 
17541 
17542 
17543 
17544 
17545 
17546 
17547 
17550 
17651 
17552 
17653 
17554 
17555 
17556 
17557 
17560 
17561 
17562 
17S63 
17564 
17565 
17566 
17567 
17570 
17571 
17672 
17573 
17574 
17675 
17576 
17577 
17600 
17601 



000000 
013666 
002003 
127537 
053656 
127537 
063657 
127537 
053660 
127537 
053666 
127537 
053665 
027616 
053664 
027616 
053662 
027616 
053661 
027617 
057676 
007400 
006020 
127537 
053663 
027602 
006014 
027576 
001727 
173675 
127537 
133675 
175675 
037675 
127637 



PRCCS 



PRCCl 



PRCC2 



NOP 






AND 


B177 




SZA, 


RSS 




JMP 


PROCS, 


I 


CPA 


.2 




JMP 


PROCS, 


I 


CPA 


.3 




JMP 


PROCS, 


I 


CPA 


LNFD 




JMP 


PROCS, 


I 


CPA 


B177 




JMP 


PROCS, 


I 


CPA 


AMODE 




JMP 


CMPLT- 


1 


CPA 


OMODE 




JMP 


CMPLT- 


1 


CPA 


EMODE 




JMP 


CMPLT- 


1 


CPA 


CRTN 




JMP 


CMPLT 




CPB 


COUNT 




CCB 






SSB 






JMP 


PROCS, 


I 


CPA 


LFTAR 




JMP 


DLETE 




SL6< 


rINB 




JMP 


PR0C2 




ALF, 


rALF 




STA 


BAODK, 


I 


JMP 


PROCS, 


I 


lOH 


BADOK, 


I 


STA 


BAOOK, 


I 


ISZ 


BADDH 




JMP 


PROCS, 


I 



STRIP BIT 7 

NULL? 

YES, IGNORE 

NO, CONTROL B ? 

YES, IGNORE 

NO, CONTROL C ? 

YES, IGNORE 

NO, LINE FEED? 

YES, IGNORE 

NO, RUB0UT7 

YES, IGNORE 

NO, ALT MODE? 

YES, CANCEL RECORD 

NO, OLD ALT MODE? 

YES, CANCEL RECORD 

NO, ESCAPE MODE? 

YES, CANCEL RECORD 

NO, CARRIAGE RETURN? 

YES, COMPLETE RECORD 

NO, BUFFER OVERFLO»<? 

YES, LOOK FOR CARRIAGE RETURN 

LOOKING FOR CARRIAGE RETURN? 

YES, RETURN 

NO, LEFT ARROW? 

YES, DELETE PREVIOUS CHARACTER 

NO, CHECK ODD/EVEN FLAG 

B0 • 0, EVEN CHARACTER 

B0 » 1, ODD CHARACTER 

RECORD HIGH CHARACTER 

PACK TWO CHARACTERS 

PUT IN BUFFER 

INDEX BUFFER ADDRESS POINTER 
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0290* 

0291* 

0292* 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0d00 

0301 

0302 

0303 

0304 

0305* 

0306* 

0307* 

0308 

0309 

0310 

0311 



THIS SECTION DELETES PREVIOUS CHARACTER(S) 



176ts2 006003 DLETE SZB^RSS 

17603 127537 JMP PROCb,I 

17604 003400 CCA 

17605 044000 ADB 

17606 006011 SLBrRSS 

17607 127537 JMP PROCS,I 
176ie' 043675 ADA 8A0DR 

17611 073675 STA BADDR 

17612 163675 LOA BADDR, I 

17613 001727 ALF,AL.F 

17614 013666 AND B177 

17615 027573 JMP PROCl 



IS BUFFER EMPTY? 

YES, RETURN 

NO 

DECREMENT CHARACTER COUNT 

LOW CHARACTER? 

YES 

NO, DECREMENT 

ADDRESS POINTER 
GET LAST TWO CHARACTERS 

DELETE LAST CHARACTER 

STORE NEXT-TO-LAST CHARACTER 



THIS SECTION PUTS COUNT IN A AND RETURNS TO P*2 



1761ft 067655 

17617 060001 

1762P 037537 

17621 127537 



CMPLT 



LDB 
LDA 
ISZ 

JMP 



M2 

1 

PROCb 

PROCSrl 



SET DELETE FLAG 
PUT CHARACTER COUNT 



IN A 



0313* 

0314* 

0315* 

0316* 

0317* 

0318* 

0319* 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 



SUBROUTINE QETCH 

RETURN TO P*l ON EMPTY BUFFER 
IF THt BUFFER IS NOT EMPTY, ELSE 
RETURN TO P*2 WITH CHARACTER IN (A) 



17622 
17623 
17624 
17625 
17626 
17627 
17630 
17631 
17632 
17633 
17634 
17635 



000000 
057676 
127622 
163675 
006011 
001727 
006014 
037675 
013666 
033667 
037622 
127622 



BETCh 



FINSH 



NOP 

CPB 

JMP 

LDA 

SLB, 

ALF, 

SLB, 

ISZ 

AND 

lOR 

ISZ 

JMP 



COUNT 

6ETCH,I 

BADDR, I 

RSS 

ALF 

INB 

BADDK 

B177 

B200 

GETCH 

6ETCH,I 



BUFFER EMPTY, P+l RETURN 
GET TWO CHARACTERS 

B EVEN, POSITION CHARACTER RIGHT 

CHECK O/E, AND INDEX COUNT 

B ODDr INCREMENT ADDRESS POINTER 

STRIP LEFT CHARACTER 

ADD BIT 7 

RETURN TO P+2 
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ia333« 

0334* 

0335« 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0346 



INITIALIZtS FOR OUTPUTTINQ A RECORD 



17636 000000 INIT NOP 

17637 002320 CCErSSA 

17640 003104 CMArCLErlNA 

17641 073676 STA COUNT 

17642 077675 STB BADOR 

17643 002002 8ZA 

17644 006002 8ZB 

17645 027661 JHP 

17646 063670 LOA 

17647 073633 8TA 
17690 000040 CLE 

17651 006400 CLB 

17652 127636 JMP 



• ♦4 

CLAI 
FINSH4>1 



INIT, I 



SET E-1, CHECK FOR (A) < 
SET (E) • 0, (A) • -(A) 
SAVE CHARACTER COUNT 
SET BUFFER STARTING ADDRESS 

LEADER/TRAILER ONLY? 

NO 

YES, (B) « 

SET CLEAR INSTRUCTION 

SET NO CR/LF 

INITIALIZE OUTPUT COUNT 



HA6E. 0025 #02 DATA, ADDKESSES, ETC. 



0350* 

0351* 

0352* 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0368* 

0369 

0370 

0371* 

0372 

0373 

0374 

0375 

0376* 

0377* 

t»378* 

0379 

0380 

0361 

0382 

0383 

0384 

t»385 

0386 

0367 

0386 

0369* 

0390 

0391 

0392 

0393 

0394 

0395 

0396 

0397* 

0398 

0399 

0400 

0401 

0402 

0403 

0404 



COHHUN URIVER CCNSTANTS AND ADDRESSES 



17653 
17654 
17655 
17656 
17657 
1766P! 
17661 
17662 
17663 
17664 

17665 
17666 
17607 
1767P! 
17671 



177765 
17777b 
1777/6 

000002 
000003 
000012 
000015 
000033 
000137 
000175 
000176 
000177 
000200 
002400 
033667 



Mil 

M3 
M2 
.2 

.3 

LNFU 

CRTN 

EHCDE 

LF7AK 

OMCDE 

AMCOE 

B177 

B2e0 

CLAI 
lOFI 



DEC 
DEC 
DEC 
DEC 
DEC 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
CLA 
IQR 



-11 

-3 

-2 

2 
3 

12 

15 

33 

137 

175 

176 

177 

200 

B200 



17672 017673 

17673 106612 

17674 000000 

17675 000000 

17676 000000 

17677 000000 



CRLFA DEF CRLF 
CRLF OCT 106612 

BUFSA NOP 
BAIOR NOP 
COLNT NOP 
EOTC NOP 



BASE PAGF REFERENCE ENTKIES 



00101 
0011^1 
00102 
00103 
00104 
0^105 
01^106 
00lv^7 
00110 
00111 

00123 
00123 
00124 
00125 
00126 
00127 



100105 
017445 
100102 
017426 

000000 

000000 
000000 
000135 
017425 



017520 
017b27 
017424 
100103 
100102 



l.STP 

LWBK 

FWAM 
LWAM 



IHCFF 

IMCN 

TLINK 

PLSTR 

LISTK 



ORG 
DEF 
DEF 
DEF 
DEF 
NOP 
NOP 
NOP 
DEF 
DEF 

ORG 
DEF 
DEF 
DEF 
DEF 
DEF 



101B 

i.STPrI 

TTY.P 

102B,I 

TTY.l 



135B 
TTY,I-l 



LINE FEED 

CARRIAGE RETURN 

ESCAPE 

LEFT ARRON 

OBSOLETE ALT MODE 

ALT MODE 

RUBOUT 



ADD IN BIT 7 



INITIAL BUFFER ADDRESS 
CURRENT BUFFER ADDRESS 
HOLDS RECORD LENGTH 
END-OF-TAPE COUNTER 



READER LINK INITIALIZED TO STOP 
TTY OUTPUT ENTRY ADDRESS 
PUNCH LINK INITIALIZED TO TTY 
TTY INPUT ENTRY ADDRESS 
LINK TO STOP ROUTINE 
LAST WORD OF USER SPACE 

FIRST WORD OF AVAILABLE MEMORY 
LAST WORD OF AVAILABLE MEMORY 



123B 

I. OFF DISABLE KEYBOARD INTERRUPT 

I, ON SET KEYBOARD INTERRUPT 

I.TTY + 200PIB TTY INPUT INTERRUPT LINK 

1038,1 PLIST OUTPUT ADDRESS 

102B,I LIST DEVICE LINK 



0013W 100102 TLSTR DEF 102B,I 



00117 
00131 
00134 

00000 
00000 
00000 
001/) Idl 



SYfTA 

108FA 

SBIFA 

RDR 

PNCH 

TTY 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



117B 
131b 
134B 







LIST OUTPUT ADDRESS 



BUFFER ADDRESS 
SYNTAX BUFFER ADDRESS 



TTYI EQU TTY+l 
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0k}02* 












0K;03* 


MODIFY PBS FOR SERIAL TELETYPE 




0*^04* 












0b05 


15073 




ORG 1 


L5073B 




0006* 












0007 


15073 


063653 


SRIAL LDA 


SMU 


SET 


0008 


15074 


067302 


LDB 


LST5A 


TTY PUNCH 


0009 


15075 


117257 


jsa 


SETIArl 


ADDRESSES 


0bl0 


15076 


137260 


IS2 


lOADArl 


INCREMENT SELECT CODE 


0tll 


15077 


063262 


LDA 


SMS 


SET 


01412 


15100 


067310 


LOB 


LST6A 


TTY READER 


ISViid 


151*31 


117257 


JSB 


SETlArl 


ADDRESSES 


vvilA 


15102 


063263 


LDA 


TT.I3 


SET INTERRUPT 


a^l^ 


15103 


070P101 


Tie 3TA 


TTYI 


CELL 


Qiilf 












0017 


15104 


063241 


LDA 


TTYPI 


SET OUTPUT 


0filb 


15105 


173221 


8TA 


CORlArl 




Utol9 


15106 


173223 


STA 


CUR3Ar I 


TELETYPE CALLS 


0K20 


15107 


173224 


STA 


DMPlArl 




0021 


15110 


173226 


STA 


GETAAr I 


TO SERIAL 


0022 


15111 


173230 


STA 


6ET2ArI 




0k''23 


15112 


173231 


STA 


CRLlAr I 


DRIVER 


0024* 












0C'25 


15113 


063243 


LDA 


STF0 


SET INPUT 


0t!^26 


15114 


173222 


STA 


C0R2A,I 




0027 


15115 


173227 


STA 


OETlArl 


TELETYPE CALLS 


0028 


15116 


037222 


ISZ 


C0R2A 




0029 


15117 


037227 


ISZ 


GETIA 


TO SERIAL 


0030 


15120 


063242 


LDA 


TTYII 




0031 


15121 


173222 


STA 


C0R2ArI 


DRIVER 


003^ 


15122 


173227 


STA 


GETlArl 




0033 


15123 


037222 


ISZ 


C0R2A 




0034 


15124 


037227 


ISZ 


GETIA 




0035 


15125 


063244 


LDA 


CLF0 




0i^'36 


15126 


173222 


STA 


C0R2ApI 




0fci37 


15127 


173227 


STA 


GETIA, I 




0038* 












0039 


15130 


002400 


CLA 




CLEAR 


0040 


15151 


173232 


STA 


TP9A,I 




0041 


15132 


037232 


ISZ 


TP9A 


BUFFERED TELETYPE 


0042 


I3l33 


173232 


STA 


TP9A,I 




0043 


15134 


173233 


STA 


TP10Af I 


INSTRUCTIONS 


0044 


15136 


173225 


STA 


DMP2A,I 




0045 


15136 


037225 


ISZ 


DMP2A 




0046 


15137 


173225 


STA 


0MP2A,I 




0047* 












0i<>48 


15140 


063245 


LDA 


STOUA 


SET FOR POSSIBLE 


0049 


15141 


173234 


STA 


TOUTArl 


TTY PUNCHING 


0b50* 












0051 


15142 


063316 


LDA 


LST7A 


USE READER AND PUNCH 


0052 


15143 


173237 


STA 


PHRLArl 


DRIVERS IN 


0053 


15144 


063324 


LDA 


L8T8A 


SERIAL TELETYPE 


0^54 


15145 


173240 


STA 


PNCLArl 


PACKAGE 
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0»56 
efc57 
0if»5e 
00S9 
0060* 

DU62 

0M63 

01064 

0($6S 

0066 

0iej67 

0<()66 

0069 

0070 

0071 

0072 

0073 

0074 

0a75«» 

0076* 

0b77* 

0078 

0079 

0<t)80 

D&61 

01^82 

0083 

01^64 



13146 063246 

15147 173217 

15150 M63247 

15151 173220 



15152 
15153 
15154 
15155 
1S156 
15157 
15160 
15161 
15162 
15163 
15164 
15165 
15166 
15167 



063250 
0701U 
063251 
173235 
063252 
173236 
063253 
070102 
063254 
070104 
063255 
070123 
063256 
070124 



LDA ROFFA 

STA PHRIA,! 

LDA POFFA 

STA NORIA,! 



LDA 
STA 
LDA 
STA 
LOA 
STA 
LOA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 



8LWHT 

LMAH 

SLMHR 

LMMRA,! 

SLWMP 

LNMPArl 

8TTYP 

1028 

STTYI 

104B 

8I0FF 

IMOFF 

SION 

IHON 



PREPARE TO SET 

INTERRUPT-OFF INSTRUCTIONS 
IN SERIAL TELETYPE 
PACKAGE 

SIT SERIAL 

TELETYPE VALUES 

IN LMAH CONSTANTS 



OVERLAY PARALLEL DRIVERS WITH SERIAL DRIVERS 



15170 
15171 
15172 
15173 
15174 



163264 
173265 
037264 
037265 
037266 



15175 027170 

15176 127261 



SRIAl LDA NOVESrI HOVE A 

STA OESTS,I MORD 

ISZ MOVES BUMP 

IS2 DESTS POINTERS 

ISZ SnCNT SERIAL DRIVERS HOVED? 

JMP SRIAl NO 

JMP PHROAfI YESf RETURN TO MAIN SEQUENCE 



0066* 














0087* 


SUBROUTINE ( 


STOUT) 


TO OUTPUT ONE 


CHARACTER TO THE 


0088* 


TELETYPE. CHARACTER IS IN (A), 


(B) IS NOT ALTERED. 


0089* 














0090 


15177 


000000 


STCUT 


NOP 






0091 


15200 


073455 




STA 


TCHAR 




0092 


152t<l 


063653 




LDA 


SMll 


SET BIT 


0I^.'93 


15202 


073517 




STA 


BCNT 


COUNTER 


0094 


152ii?3 


063455 




LDA 


TCHAR 




(0w95 


15204 


001000 




ALS 




ADO 


KI096 


15205 


033520 




lOR 


B3000 


CONTROL BITS 


0097 


15206 


102700 


TP7 


STC 


TTY 


TURN ON TELETYPE 


0098 


15207 


103600 


TPfi 


OTA 


TTY,C 


OUTPUT BIT 


0099 


15210 


001300 




HAR 




POSITION NEXT BIT 


0100 


15211 


102300 


TP9 


SFS 


TTY 


WAIT FOR 


0101 


15212 


027211 




JMP 


• -1 


COMPLETION FLAB 


0102 


15213 


037517 




ISZ 


BCNT 


DONE? 


011^3 


15214 


027207 




JMP 


TP8 


NU 


0104 


15215 


106700 


TP10 


CLC 


TTY 


YES, TURN OFF TELET 


0105 


15216 


127177 




JMP 


STOUT, I 
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0107* 

0108* 

0109* 

0110 

QUI 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128* 

0129* 

0130* 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145* 

0146* 

0147* 

0148 

0149 

0150 

0151* 

0152* 

0153* 

0154 

0155 

0156 

0157 

0158 



HOOIFICATiON ADCRESSES 



15217 

15220 

15221 

15222 

13223 

15224 

15225 

15226 

15227 

152di4 

13231 

15232 

15233 

15234 

15235 

15236 

15237 

15240 



016364 
0164liJ2 
016424 
016427 
016453 
016551 
016552 
016572 
016575 
016607 
016644 
016700 
016731 
017245 
017247 
017250 
017310 
017317 



PHRIA 

NORIA 

CORIA 

C0R2A 

C0R3A 

DMFIA 

0MP2A 

6ETAA 

GETIA 

GET2A 

CRLIA 

TP9A 

TP10A 

TOtTA 

LW^-RA 

LWKPA 

PHRLA 

PNCLA 



DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 



PHRDl 

NOROl 

CORAl 

C0RA2 

C0RA3 

DUMPi 

DUMP2 

6ETAD4-1 

6ETA1 

GETA2 

CRLFl 

TP.9-1 

TP.10 

PNCHO 

LWAMk 

LWAMP 

LST2A 

LST3A 



MUOIFICATION INSTRUCTIONS 

15241 017466 TTYPI JSB .TTYP 

15242 017404 TTYII JSB .TTYI 

15243 102100 STF0 8TF 
13244 103100 CLF0 CLF 
15245 015177 STCUA DEF STOUT 
13246 073524 ROFFA STA ,R0FF 
16247 073525 POFFA STA ,POFF 

15230 017403 SLWMT DEF ,TTYI-U2000B 

15251 017345 SL»»MR DEF HSPR-U20eaB 

15252 017324 SLWMP DEF SPNCH-U2000B 
13253 017466 STTYP DEF .TTYP+2000B 

15254 017404 STTYI DEF .TTYU2000B 

15255 017521 SICFF DEF .IOFF+2000B 

15256 017531 SICN DEF .ION4'200eB 



LWAM OPTIONS 

FOR SERIAL 

TELETYPE 



COMMUNICATION LINKS 



15257 016646 SETIA 
13260 017244 lOAOA 
15261 016353 PHRDA 



DEF SETI 
DEF lOAOR 
DEF PHRDR 



LUCAL COiMSTANTS AND ADDRESSES 



15262 177773 SMS DEC -5 

15263 U4125 TT.I8 JSB TLINK,I 

15264 015325 NOVES DEF SPNCH 

15265 017325 DESTS DEF 8PNCH4-2000B 

15266 177866 SHCNT ABS SPNCH-SPROC 



TTY INTERRUPT INSTRUCTION 



INSTRUCTION 


T6 DEF 


TP2-1 


DEF 


TP2 


DEF 


TP2+2 


DEF 


TP3-1 


DEF 


TP3 


DEF 


TP5 


DEF 


TP6 


DEF 


TP7 


DEF 


TP8 


DEF 


TP9 


DEF 


TP10 
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0160* 

0161* TELETYPE OUTPUT INSTRUCTION LIST 

0162* 

0163 15267 01&476 L 

0164 19270 015477 

0165 15271 015501 

0166 15272 015505 

0167 15273 015506 

0168 15274 015456 

0169 15275 015523 

0170 15276 015206 

0171 15277 015207 

0172 15300 015211 

0173 15301 015215 
0174* 

0175 15302 015267 LST5A UEF LISTS 

0176* 

0177* TELETYPE INPUT INSTRUCTION LIST 

0178* 

0179 15303 015426 L18T6 DEF T12 

0160 15304 015437 DEF TI3 

0161 15305 015462 DEF TI4 
0182 13306 015522 DEF TI5 
0163 15307 015103 DEF TI6 
0184* 

0185 15310 016303 L8T6A DEF LIST6 

0186* 

0187* PHOTOREADER INSTRUCTION LIST 

0188* 

0189 15^^11 017365 LIST7 DEF PK.3+2000B 

0190 15312 017371 DEF PR. 5*20008 

0191 15313 017373 DEF PR.6*2000B 

0192 15314 017400 DEF PR.7+2000B 

0193 13316 017307 DEF RU 
0194* 

0195 15316 016311 LST7A DEF LIST7 

0196* 

0197* HIGH-SPEED PUNCH INSTRUCTION LIST 

0198* 

0199 15317 017331 LISTS DEF PN,2+2000B 

0200 15320 017332 DEF PN.3+2000B 
0k0l 15321 017333 DEF PN.4+2000B 

0202 15322 017340 DEF PN.6+2000B 

0203 15323 017316 DEF PO 
0204* 

0205 15324 015317 LST8A DEF LI8T8 
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0207* 
0208* 
02kii9* 
0210* 
0<U* 
0212* 
0213* 
6)214* 
0215* 
0216* 
0217* 
0218* 
0219* 
0220* 
t)221* 
0222* 
0223* 
0224* 

0225* 

0226* 

0227* 

0228* 

0229 

0230 

0231 

0232 

0233 

0234 

0<i35 

0236 

0237 

0236* 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 



«**•*««*«**** BASIC SYSTEM HUH SPEED PUNCH DRIVER ***•****#******* 

UUrpUTS ASCII THROUGH THE HIGH SPEED PUNCH 
CALL* JSB 1038,1 

(A) m NUMBER OF CHARACTERS TO BE PUNCHED 
(d) ■ STARTING ADDRESS OF BUFFER 

IF (A) IS >- THEN OUTPUT <A) CHARACTERS 
FULLCIWED BY A CARRIAGE RETURN-LINE FEED. 

IF (A) < THEN PUNCH -(A> CHARACTERS ONLY. 

BUFFER CONTAINS ASCII CHARACTERS PACKED TWO PER NORD. 

IF (B) - ON ENTRY (A) FEED FRAMES ARE PUNCHED. 
If (A) « ON ENTRY ONLY A CR/LF IS PUNCHED. 



15J25 
19326 
15327 
15330 
15331 
15332 
15333 
15334 
15335 

15336 
15337 
1S340 
15341 
15342 
15343 
15344 
15345 



000000 
017636 
017622 
027336 
102600 
103700 
102300 
027333 
027327 

063671 
073633 
106700 
002141 
127325 
063655 
1067672 
027326 



SPNCH NOP 

JSB 8INIT 
Pn.I JSB SQTCH 

JMP PN,5 
PN,2 OTA PNCH 
PN.3 STC PNCH»C 
PN,4 SFS PNCH 

JMP •-! 

JMP PN.I 

PN,5 LDA SIORI 

STA SFNSH+1 

PN,6 CLC PNCH 

SEZ,CLE,RSS 

JMP SPNCHrl 

LDA SM2 

LDB SCRLA 

JMP SPNCH+1 



INITIALIZE FOR PUNCHING 

GET NEXT CHARACTER FROM BUFFER 

BUFFER EMPTY 

LOAD PUNCH BUFFER 

GIVE PUNCH COMMAND 

WAIT FOR PUNCH READY 
GET NEXT CHARACTER 



RESTORE lOR INSTRUCTION 
TURN OFF PUNCH 
RECORD COMPLETE? CLEAR E 
E-0, OUTPUT COMPLETE 
E«l, APPEND CR AND LF 
LOAD ADDRESS OF CR AND LF 
DO CR/LF 
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0248* 

0249* 

0260* 

02bl* 

0252* 

0253* 

0254* 

0255* 

0256* 

0257* 

0256* 

0259* 

0260* 

0261* 

0262* 

0263* 

0264* 

0265* 

0266* 

0267* 

0268* 

0269* 

0270* 

0271* 

0272* 

C273* 

0274* 

0275* 

0276* 

Oii77 

0278 

12279 

0280 

1)281 

0282 

0283 

0284 

0285 

0286 

0287 

0286 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 



************** BASIC SYSTErt PHOTO READER DRIVER 

INPUTS TAPE RECORDS THR0U8H THE PHOTO READER 

CALLt JSB 101BrI 

(A) m MAXinUh NUMBER CHARS IN RECORD 
(8) ■ bUFFER STARTING ADDRESS 



On RETURN (A)» -1 TOO MANY CHARACTERS IN RECORD 

(A)« -2 END OF TAPE DETECTED 

(A)« -3 NO TAPE OR QATE DOWN 

(A)« NUMBER OF CHARACTERS IN RECORD 

INPUT IS PACKED TWO CHARACTERS PER WORD IN BUFFER. 

ALL RECORDS MUST BE TERMINATED WITH A LINE FEED. 
THE NULL AND CARRIAOE RETURN CHARACTERS ARE IGNORED. 

THE LEFT aRROW(S) •• DELETE THE PREVIOUS CHARACTER(8 > , 

AN ALT MODE ANYWHERE BEFORE THE LINE FEED DELETES ALL 
CHARACTERS IN THE RECORD. THE RECORD IS IGNORED. 

IF 10 NULL CHARACTERS ARE DETECTED BEFORE ANY CHARACTER, 
READING IS TERMINATED AND THE RETURN IS WITH A NULL RECORD. 



15346 
15347 
15350 
15351 
15352 
15353 
15354 
15355 
15356 
15357 
15360 
15361 
15362 
15363 
15364 
15365 
15366 
15367 
15370 
15371 
15372 
15373 
15374 
15375 
15376 
15377 
15400 



000000 
073676 
077674 
063653 
073677 
067674 
077676 
006400 
006003 
002002 
027365 
037677 
027365 
063655 
027400 
103700 
002400 
002007 
027402 
102300 
027367 
103500 
017537 
027356 
057655 
027351 
106700 



HSPR 



PR.l 



PR. 2 



PR. 3 
PR. 4 
PR, 5 
PR, 6 



PR, 7 



NOP 




STA 


8C0NT 


STB 


8BFSA 


LDA 


SMll 


STA 


SEOTC 


LOB 


S8FSA 


STB 


SBDOR 


CL6 




SZB( 


rRSS 


SZA 




JHP 


PR, 3 


ISZ 


SEOTC 


JMP 


PR. 3 


LDA 


SM2 


JMP 


PR. 7 


STC 


RDRfC 


CLA 




INAi 


rSZArRSS 


JHP 


PR. 8 


SFS 


RDR 


JMP 


PR. 4 


LIA 


RORrC 


JSB 


SPROC 


JMP 


PR. 2 


CPB 


SM2 


JMP 


PR.l 


CLC 


RUR 



SAVE LENGTH 

SAVE BUFFER STARTING ADDRESS 

INITIALIZE EOT COUNTER 

INITIALIZE BUFFER POINTER 
INITIALIZE CHARACTER COUNT 
ANY NON-NULL CHARACTERS YET7 
NO, SKIP IF NULL 

COUNT NULL 

NOT 10 NULLS 

SET A TO INDICATE EOT (-2» 

10 NULLS, TURN OFF READER & EXIT 

REQUEST CHARACTER 

SET DELAY COUNT 

DELAY ■ 6.4 * 65K ■ .41 SECONDS 

(A)«0, NO TAPE OR GATE DOWN 

NO FLAG, CHECK DELAY COUNT 
LOAD CHARACTER 
PROCESS CHARACTER 
GET NEXT CHARACTER 
RUBOUT IN THIS RECORD? 
YES, IGNORE RECORD 
TURN OFF READER 
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0304 154iSi 127346 JMP H3PR»I 
0305* 

0306 IS402 063654 PR. 8 LOA 8M3 LOAD 'NO TAPE' STATUS 

0307 15403 027400 JMP PR. 7 
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0309* 

0310«»* 

031l« 

0312* 

0313* 

0314* 

0315* 

0316* 

0317* 

0318* 

0319* 

0320* 

0321* 

0322* 

0323* 

e324* 

0325* 

0326* 

0327* 

0328* 

0329* 

0330* 

0331* 

0332* 

0333* 

0334* 

0335* 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 



***************** BASIC SYSTEM TELETYPE INPUT DRIVER **♦*♦****♦•** 

INPUTS FROM AN ASR 33/35 THROUGH THE 
TELETYPE CONTROL BOARD FROM TAPE OR KEYBOARD. 

CALLt JSB 1048,1 

(A) > MAXIMUM NUMBER CHARS IN RECORD 

(B) - BUFFER STARTING ADDRESS 

RETURN! (A)« -1 TOO MANY CHARACTERS IN RECORD 
(A)» -2 RECORD DELETED 
(A)» NUMBER OF CHARACTERS IN RECORD 



THE CHARACTERS ARE PACKED TWO TO A WORD IN THE BUFFER, 

ALL RECORDS MUST BE TERMINATED WITH A LINE FEED, 
THE NULL AND CARRIAGE RETURN CHARACTERS ARE IGNORED. 

THE LEFT ARROW(S) - DELETE THE PREVIOUS CHARACTER (8) , 

AN ALT MODE ANYWHERE BEFORE THE LINE FEED DELETES ALL 
CHARACTERS IN THE RECORD, THE RECORD IS IGNORED. 



15404 
15405 
15406 
15407 
15410 
15411 
15412 
15413 
15414 
15415 
15416 
15417 
15420 
15421 
15422 

15423 



000000 
073676 
077675 
006400 
06^456 
073434 
017457 
063454 
002002 
027413 
063455 
017537 
027412 
006400 
077434 
127404 



,TTYl 



TU 



NOP 






STA 


SCONT 


SAVE LENGTH 


STB 


SBDDR 


SAVE BUFFER ADDRESS 


CLB 




ZERO CHARACTER COUNT 


LDA 


TPS 


SET 


STA 


OUTB 


ECHO 


JSB 


TTINT 


INITIALIZE FOR INPUT CHARACTER 


LDA 


BITS 


WAIT FOR 


SZA 




CHARACTER 


JMP 


• -2 


COMPLETE 


LDA 


TCHAR 


PROCESS 


JSB 


SPROC 


CHARACTER 


JMP 


Til 


GET NEXT CHARACTER 


CLB 




CLEAR 


STB 


OUTB 


ECHO 


JMP 


.TTYI,I 
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0353* 

0354* 

0355* 

0356* 

0367* 

0356 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0366 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

0380 

0381* 

0382 

0383 

0384 

0385* 

0386 



THIS SECTION PRCCESSES EACH BIT AS IT BECOMES AVAILABLE. 
RETURN THkOUSH 105B IF THE INTERRUPT MODE FLAG IS SET UPON 
CMARACTfcR COMPLETION, 



15424 
15425 
15426 
15427 
15430 
15431 
15432 
15433 
15434 
15435 
15436 
15437 
15440 
15441 
15442 
15443 
15444 
15445 
15446 
15447 
16450 
1S451 
19452 

15453 
15454 
15455 



000000 
073453 
103501 
033455 
001300 
073455 
001727 
001222 
000000 
037454 
027451 
106701 
063455 
001723 
073455 
063536 
002003 
027451 
063671 
073633 
114105 
063453 
127424 

000000 
000000 
000000 



I.TTY 



TI2 



OUTB 



TI3 



EXIT 



NOP 
STA 
LIA 
I OR 
RAR 
STA 
ALF 
RAL 
NOP 
IS2 
JMP 
CLC 
LDA 
ALF 
STA 
LDA 
SZA 
JMP 
LDA 
STA 
JS6 
LDA 
JMP 



ATEMP 
TTYI,C 

TCHAR 

TCHAR 
rALF 
,RAL 

BITS 

EXIT 

TTYI 

TCHAR 
rRAR 

TCHAR 

STOPI 
rRSS 

EXIT 

SIORl 

SFNSH4>1 

I.STPrI 

ATEMP 

I.TTY, I 



ATEMP NOP 
BITS NOP 
TChAR NOP 



SAVE (A) 
MERGE 

NEW BIT 
INTO 

CHARACTER 
POSITION BIT 

FOR ECHO 
OUTPUT INSTRUCTION 
BIT 11? 
NO 
YES 
ALIGN 

COMPLETED 
CHARACTER 
STOP FLAG 

SET? 
NO 
YESf RESTORE 

lOR INSTRUCTION 
60 TO STOP 
RESTORE (A) 



15456 102600 TP5 OTA TTY 



ECHO BIT INSTRUCTION 



0388* 

0389* 

0390* 

0391* 

0392 

0393 

0394 

0395 

0396 

0397 

0398 



THIS ROUTINE INITIALIZES THE SERIAL TELETYPE 
AND SETS TELETYPE TO ACCEPT INPUT, 



INPUT ROUTINE 



15457 000000 TTINT NOP 

15460 063653 LDA SMll 

15461 073454 STA BITS 

15462 103701 TI4 8TC TTYI,C 
154b3 002400 CLA 

15464 073455 STA TCHAK 

15466 127457 JMP TTINT, I 



SET 

BIT COUNTER 
DEMAND INPUT 
ZERO OUT 

CHARACTER REPOSITORY 
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13400* 

0401** 

0402* 

0403* 

04^4* 

04O&* 

0406* 

0407« 

0406* 

0409* 

0410* 

04U* 

0412* 

0413* 

0414* 

0415* 

0416* 

0417* 

0418* 

0419* 

0420* 

0421* 

0422* 

0423 

0424 

0425 

0426 

0427 

0426 

0429 

0430 

0431 

0432 

0433 

0434 

043b 

0436 

0437 

0436 

0439 

0440 

0441* 

0442 

0443 

0444 

0445 

0446 

0447 

0446 

0449* 

0450 

0451 



************* BASIC SYSTEM TELETYPE OUTPUT DRIVER 



OUTPUTS ASCII RECORDS THROUQH THE TELETYPE PRINTER, 
PUNCH, OR BOTH. 

CALLi JS6 102BrI 

(A) ■ NIMBER OF CHARACTERS TO BE OUTPUT 

(B) « STARTING ADDRESS OF BUFFER 



IF (A) IS >■ THEN OUTPUT (A) CHARACTERS 
FOLLOWED BY A CARRIAGE RETURN-LINE FEED, 

IP (A) < THEN PUNCH -(A) CHARACTERS ONLY. 

BUFFER CONTAINS ASCII CHARACTERS PACKED TWO PER WORD, 

IF (B) • ON ENTRY OUTPUT (A) FEED FRAMES, 
IF (A) - ON ENTRY ONLY A CR/LF IS OUTPUT, 



15466 
15467 
15470 
15471 
15472 
15473 
15474 
15476 
15476 
15477 
15500 
I5&wl 
15S(d2 
155^3 
15504 
15505 
15506 
15507 

15510 
15511 
15512 
15513 
15514 
15515 
15516 

15517 
15520 



000000 
017636 
063653 
073517 
017622 
027510 

001000 

033520 
102700 
103600 
001300 
10;(!300 
027501 
037517 
027477 
106700 
102100 
027470 

063671 
073633 
002141 

127466 
063655 
067672 
027467 

000000 
003000 



,TTYP 



TPl 



TP2 



TP3 



TP4 



NOP 
JS6 
LDA 
STA 
JSB 
JMP 
ALS 
lOR 
STC 
OTA 
RAR 
SFS 
JhP 
ISZ 
JMP 
CLC 
STF 
JMP 



SINIT 

SHll 

BCNT 

SOTCH 

TP4 

B3000 

TTY 

TTY,C 

TTY 

*-l 

BCNT 

TP2 

TTY 

TTY 

TPl 



LDA SIORl 
STA SFNSH+l 
SEZ,CLE,KSS 
JMP ,TTYP,I 
LDA SM2 
LDB SCRLA 
JMP ,TTYP*1 



INITIALIZE FOR OUTPUT 
SET BIT 

COUNTER 
FETCH NEXT CHARACTER FROM BUFFER 
BUFFER EMPTY 
ADD BIT 7 AND 

CONTROL BITS 
REQUEST PRINT 
OUTPUT BIT 
POSITION NEXT BIT 
WAIT FOR 

BIT OUT FLAG 
CHARACTER OUT? 
NO 

YES, TURN OFF TTY 
SET FLAG BUFFER (RESETS TIMER) 



RESTORE lOR 

INSTRUCTION 
DONE? 
YES 
NO 
DO CR/LF 



BCNT NOP 
B3e00 OCT 



3000 
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0476* 

0477* 

0478* 

0479* 

04B0* 

04S1* 

0482* 

0463* 

0484* 

0465 

0466 

0487 

0468 

0489 

0490 

0491 

0492 

0493 

0494 

0495 

0496 

0497 

0498 

0499 

0500 

0£>01 

0502 

0503 

&5ic>4 

0505 

0506 

0507 

0508 

05to9 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0517 

0518 

0519 



CHARACTEW PROCESSING SECTION FOR TTY AND PHOTOREADER 
CALLi 



KETuRNi 



19537 
15540 
15541 
15542 
15543 
1S544 
15545 
13546 

15547 
15550 
15551 
15552 
15553 
15554 
15555 
15566 
15557 
1536f 
15561 
15562 
15563 
15564 
15565 
15566 
15567 
15570 
15571 
15572 
15573 
15574 
15575 
15576 
15577 
15600 
156131 



000000 
013666 
002003 
127537 
053656 
127537 
053657 
127537 
053660 
127537 
053666 
127537 
053665 
027616 
053664 
027616 
053662 
027616 
053661 
027617 
057676 
007400 
006020 
127537 
053663 
027602 
006014 
027576 
001727 
173675 
127537 
133675 
173675 
037675 
127537 



JSB PROCS 

(A) HOLDS CHARACTER 

P+1 - GET NEXT CHARACTER 
P+2 - RECORD COMPLETE 



SPROC NOP 
AND 
SZA, 
JMP 
CPA 
JMP 
CPA 
JMP 
CPA 
JMP 
CPA 
JMP 
CPA 
JMP 
CPA 
JMP 
CPA 
JMP 
CPA 
JMP 
CPB 
CCB 
SSB 
JMP 
CPA 
JMP 
SLBr 
JMP 

SPfiOl ALFf 
8TA 
JMP 

SPRU2 lOR 
STA 
ISZ 
JMP 



SB177 

RSS 

SPROC, I 

8.2 

SPROC, I 

S.3 

SPKOCI 

SLNFD 

SPROC, I 

SB177 

SPROC,! 

SAMDE 

SCMPL-1 

SOMOE 

SCMPL-1 

SEHOE 

SCMPL-1 

SCRTN 

SCMPL 

SCONT 



SPROC, I 

8LFTA 

SDLTE 

INB 

SPR02 

ALF 

SBDDK,I 

SPROC,! 

SBDDR,! 

SBDOR,I 

SBDDR 

SPROC,! 



B7 
C? 



STRIP BIT 7 

NULLT 

YES, IGNORE 

NO, CONTROL 

YES, IGNORE 

NO, CONTROL 

YES, IGNORE 

NO, LINE FEED? 

YES, IGNORE 

NO, RUBOUT? 

YES, IGNORE 

NO, ALT MODE? 

YES, CANCEL RECORD 

NO, OLD ALT MODE? 

YES, CANCEL RECORD 

NO, ESCAPE HOOC? 

YES, CANCEL RECORD 

NO, CARRIAGE RETURN? 

YES, COMPLETE RECORD 

NO, BUFFER OVERFLOW? 

YES, LOOK FOR CARRIAGE RETURN 

LOOKING FOR CARRIAGE RETURN? 

YES, RETURN 

NO, LEFT ARROW? 

YES, DELETE PREVIOUS CHARACTER 

NO, CHECK ODD/EVEN FLAG 

B0 " 0, EVEN CHARACTER 

B0 » 1, ODD CHARACTER 

RECORD HIGH CHARACTER 



PACK TWO CHARACTERS 

PUT IN BUFFER 

INDEX BUFFER ADDRESS 



POINTER 
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0453* 

0454* 

0455* 

0456 

0457 

0458 

0459 

0460 

0461 

0462 

0463 



Thl& ROUTINE TURNS OFF THE TELETYPE INTERRUPT NODE 



15521 
15522 
15523 
15524 
15525 
15526 
15527 
15530 



0i0kitl00 
106701 
106700 
000000 
000000 
002400 
073536 
127521 



.ICFF 

TI5 

TPe 

,RCFF 

.PCFF 



NOP 
CLC 
CLC 
NOP 
NOP 
CLA 
STA 
JMP 



TTYI 
TTY 



8T0P1 
.lOFFfl 



TURN OFF KEYBOARD 

TURN OFF PRINTER 

SET TO CLC RDR IF READER EXISTS 

SET TO CLC PNCH IF PUNCH EXISTS 

CLEAR 

STOP FLAG 



0465* 








0466* 


THIS ROUTINE TURNS 


ON THE 


0467* 








0468 


15531 000000 


,ICN NOP 




0469 


15532 003400 


CCA 




0470 


15533 073536 


STA 


8T0PI 


0471 


15534 017457 


JSB 


TTINI 


0472 


15535 127531 


JMP 


• ION, I 


0473* 








0474 


15536 000000 


SICPI NOP 





TELETYPE INTERRUPT MODE 



SET STOP FLAG 

FOR INTERRUPTS 
ENABLE KEYBOARD 



STOP FLAG (INITIALIZED OFF) 



PAQE 00^6 «03 CHARACTER PROCESSING SECTION FOR INPUT 



0521* 












0522* 


THIS 


SECTION 


DELETES PREVIOUS CHARACTER(S) 


Bb23* 












e>524 


15602 


006003 


SULTt 


SZB^RSS 


IS BUFFER EMPTY? 


0525 


15603 


127537 




JMP SPROCfl 


YES, RETURN 


0b26 


15A0/I 


003400 




CCA 


NO 


0527 


15635 


044(^00 




ADB 


DECREMENT CHARACTER COUNT 


0528 


15606 


006011 




SLB,RSS 


LOW CHARACTER? 


0529 


156147 


127537 




JMP SPROCl 


YES 


0530 


15610 


043675 




ADA SBODR 


NO, DECREMENT 


05J1 


15611 


073675 




STA SBDDR 


ADDRESS POINTER 


0532 


15612 


163675 




LOA SBDDR^I 


GET LAST TWO CHARACTERS 


0533 


15ol3 


001727 




alf,alf 




0534 


15614 


013666 




AND SB177 


DELETE LAST CHARACTER 


0535 


15015 


027573 




JMP SPROl 


STORE NEXT-TO-LAST CHARAC 


0536* 












0037* 


THIS 


SECTION 


PUTS 


COUNT IN A AND 


RETURNS TO P4-2 


kJS38* 












0539 


15616 


067655 




LDB SH2 


SET DELETE STATUS 


054*J 


15ol7 


0610001 


scrPL 


LDA 1 


PUT CHARACTER COUNT INTO 


0b4l 


15620 


037537 




tSZ SPROC 




0b42 


15621 


127537 




JMP SPROCfl 





(A) 



0544* 

0b45* 

Go46* 

0547* 

0548* 

0549* 

0550* 

0551 

0552 

0553 

0554 

0555 

0556 

0557 

0558 

0559 

0560 

0561 

0562 



Subroutine oetch 

t^FfORN TO P*l ON EMPTY BUFFER 

IF TNL bUFFER IS NOT EMPTY, ELSE 

KETURN TO P+2 WITH CHARACTER IN (A). 



15622 
15623 
15624 
15625 
15626 
15627 
15630 
15631 
15632 
15633 
15634 
15635 



000000 
057676 
127622 
163675 
006011 
001727 
006014 
037675 
013666 
033667 
037622 
127622 



SGTCH 



SFKSH 



NOP 

CPB SCONT 
JMP SGTCH, I 
LDA SBDDR, I 
SLB,RSS 
ALF,ALF 
SLB,INB 
ISZ SBDDR 
AND SB177 
lOR SB200 
ISZ SGTCH 
JMP SGTCH, I 



BUFFER EMPTY, P*l RETURN 
GET TWO CHARACTERS 

B EVEN, POSITION CHARACTER RIGHT 

CHECK O/E, AND INDEX COUNT 

B ODD, INCREMENT ADDRESS POINTER 

STRIP LEFT CHARACTER 

ADO BIT 7 

RETURN TO P+2 
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0564* 

0565* INITIALIZES FOR OUTPUTTING A RECORD 

0566* 

0567 15636 000000 SIMl NOP 

0568 15637 002320 CCErSSA SET E"lf CHECK FOR (A) < 

0569 15640 003104 CMArCLE^INA SET (E) - 9, (A) ■ -(A) 

0570 15641 073676 STA SCONT SAVE CHARACTER COUNT 

0«J71 15642 077675 STB SBDDR SAVE BUFFER STARTING ADDRESS 

0572 15643 002002 SZA 

0573 15644 006Mk)2 SZB LEADER/TRAILER ONLY? 

0574 I5b45 027651 JMP *+4 NO 

0575 13546 063670 LDA SCLAl YES, (3) ■ 

0576 15647 073633 STA SFNSH*l SET CLEAR INSTRUCTION 

0577 15656* 000040 CLE SET NO CR/LF 

0578 15651 006400 CLB INITIALIZE OUTPUT COUNT 

0579 15652 127636 JMP SINIT,! 
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05bl* 

0583* 

05B4 

0585 

k)586 

0S87 

0588 

0589 

0590 

0591 

0592 

0593 

0594 

0695 

0596 

0697 

1^598 

fci599* 

0600 

0601 

0602* 

0603 

0604 

0605 

06(:S6 

0607* 

06k)8 

** NO 



COMMON URIVER CONSTANTS AND ADDRESSES 



15653 
15654 
15655 
15656 
15657 
15660 
15661 
15662 
15663 
15664 
15665 
15666 
15667 
15670 
15671 

15672 
15673 



177765 
177775 
177776 

000002 

000003 
000012 
000015 
000033 
000137 
0011)175 
000176 
000177 
0002100 
002400 
033667 

015673 
106612 



15674 000000 

15675 000000 

15676 0000100 

15677 00550(^0 



ERRORS* 



SMll 

SM3 

SM2 

S.2 

S.3 

SLKFD 

SCRTN 

SErDE 

SLFTA 

SOMIE 

SAfDE 

SB177 

SB200 

SCLAI 

SICRI 

SCRLA 
SCRLF 



DEC 
DEC 
DEC 
DEC 
DEC 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
CLA 
lOR 



SBFSA NOP 

SBDDR NOP 

SCCNT NOP 

SECTC NOP 

END 



-II 
-3 
-2 
2 

3 

12 

15 

33 

137 

175 

176 

177 

200 

S8200 



DEF SCRLF 
OCT 106612 



LINE FEED 

CARRIAGE RETURN 

ESCAPE 

LEFT ARRON 

OBSOLETE ALT MODE 

ALT MODE 

RUBOUT 



ADD IN BIT 7 



INITIAL BUFFER ADDRESS 
CURRENT BUFFER AOOf^ESS 
HOLDS RECORD LENGTH 
END-OF-TAPE COUNTER 



